如何填寫 Sender: TObject |
|
答題得分者是：richtop
|
|
donlly
一般會員   發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
|
|
rest
一般會員 發表：5 回覆：23 積分：5 註冊：2004-05-12 發送簡訊給我 |
應該是依您觸發的sender的型態...
ex.
Edit1.click:=Button2.Click;
Edit2.click:=Button2.Click;
Edit3.click:=Button2.Click;
...
procedure TForm1.Button2Click(Sender:TObject);
begin
(Sender as TEdit).Name:='';
(Sender as TEdit).Text:='';
if (Sender as TEdit).Name='Edit1' then
..
else if (Sender as TEdit).Name='Edit2' then
..
end;
|
|
Zard
尊榮會員  發表：24 回覆：396 積分：539 註冊：2003-11-26 發送簡訊給我 |
引言: 當要調用 procedure TForm1.Button2Click(Sender: TObject); 的時候,到底如何填寫(Sender: TObject) ?謝謝
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('123');
end; procedure TForm1.Button1Click(Sender: TObject);
begin
Button2Click(nil);
end;
|
|
richtop
資深會員 發表：122 回覆：646 積分：468 註冊：2003-06-10 發送簡訊給我 |
donlly 您好： 底下程式碼請參考。
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Button-1 pressed!');
if ( Sender<>Button1 ) then
ShowMessage(Sender.ClassName);
end; procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Button-2 pressed!');
Button1Click(Button2);
end; procedure TForm1.Label1Click(Sender: TObject);
begin
Button1Click(Label1);
end; RichTop 敬上 =====*****
把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！
=====#####
|
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
發表時間：2004-12-08 09:36:38
IP:219.131.xxx.xxx 未訂閱
系統時間：2024-05-16 5:08:28
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |