A Form有按鈕可以讓B Form show 小弟想 在B Form Show 時 判定 A Form 上哪一個按鈕按的 所以 很單純的想法 formB.label1.caption:= Tbutton(Sender).classname; 不過,這樣Sender會是formB 可能是太基礎了,找不到相關資料 請各位指教

Hi Sanyuan 您好: 試試 在B Form建立時傳參數進去 BForm := TBForm.Create(Self); BForm.Label1.Caption := TButton(Sender).Name; 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

試了一下,好像不行 可能是我表達的不是很明確 再換個簡單的方式 form1 新增一個Button1 procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2, Form2); form2.show; end; -------------------------------------------- form2 在create的時候,判斷sender procedure TForm2.FormCreate(Sender: TObject); begin showmessage(TButton(Sender).name); end; -------------------------------------------- TButton(Sender).name 不是'button1' 而是 'form2' Why?

Hi Sanyuan 您好:

這樣不行, Sender為Form2沒錯
procedure TForm2.FormCreate(Sender: TObject);
begin
showmessage(TButton(Sender).name);
end;

不曉得您是否必須要在OnCreate作, 因為在OnCreate參數還未傳進去所以必須在別的地方作, 試著在OnActivate or OnShow裡作

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.Label1.Caption := TButton(Sender).Name; <--傳入Form1.Button1用元件或Public變數去接
form2.show;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

原來是這樣,試過,沒問題了 也解了 非常謝謝