会答的就加分 ( 积分: 100 )

  • 主题发起人 主题发起人 ehua818
  • 开始时间 开始时间
E

ehua818

Unregistered / Unconfirmed
GUEST, unregistred user!
在第一个窗体的edit里面输入数据,如何在第二个窗体的edit里面显示.
请列出代码,可以的都给分
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form2.Edit1.Text := Edit1.Text;
end;
 
1.最笨的办法:
uses
Unit1;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Edit2.text:=Form1.Edit1.text;
end;
2. 键盘钩子
当焦点在edit1时,键盘钩子回调函数中给Form2发消息,在Edit2上赋上值
3.窗口子类化
子类化Edit1,当有输入消息的时候同时发消息给Edit2
 
keypress裏判斷,付值啊
 
多人接受答案了。
 
后退
顶部