J joove Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #3 不行'阿,比如: if button.onclick then showmessage('您单击了button1'); 提示错误:not enough actrual parameter
X xiaochengyong Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #4 你难道不能在Onclick中设置一个标志吗？ XXXX::OnClick() { Flag=true; }
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #6 哪要走那个弯路？ procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('单击我干嘛？'); end; 这样完全符合你的意思。
哪要走那个弯路？ procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('单击我干嘛？'); end; 这样完全符合你的意思。
J joove Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #7 大家误会了,我的程序是在Ttimer中定义一个i,通过i来判断button被单击的次数 ,就这么简单
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #8 不是大家误会，是你表达不对。定义i 为全局变量 var i:integer; 干嘛要在Ttimer中定义i呢？ procedure TForm1.Button1Click(Sender: TObject); begin i:=i+1; ShowMessage('你点击我'+inttostr(i)+'次了！'); end;
不是大家误会，是你表达不对。定义i 为全局变量 var i:integer; 干嘛要在Ttimer中定义i呢？ procedure TForm1.Button1Click(Sender: TObject); begin i:=i+1; ShowMessage('你点击我'+inttostr(i)+'次了！'); end;
