一个关于窗体调用问题(10分)

  • 主题发起人 主题发起人 huzhaow
  • 开始时间 开始时间
H

huzhaow

Unregistered / Unconfirmed
GUEST, unregistred user!
我要实现以下功能
两个窗体form1,form2,form1中有两个按钮,我要form1中的button1按下出现form2,且form2中的
edit2成为焦点,在form1中的button2按下出现form2,且form2中的edit3成为焦点,
就是如何使form2获得form1中的哪个按钮发出的事件.
 
uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
; Form2.Show;
; Form2.Edit2.Text :='Form1的按钮1按下';
; Form2.Edit2.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
; Form2.Show;
; Form2.Edit3.Text :='Form1的按钮2按下';
; Form2.Edit3.SetFocus;
end;
 
两个button使用同一个click事件:
begin
; if not Assign(form2) then
; ; form2 := TForm2.Create(self);
; form2.Show;
; if sender = button1 then form2.Edit2.SetFocus;
; if sender = button2 then form2.Edit3.SetFocus;
end
 
俩位同志的意见真是有趣,一个最古老但简单实用,一个最好看
 
我欣赏第二个方法
 
接受答案了.
 
后退
顶部