E ehua818 Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-18 #1 在第一个窗体的edit里面输入数据,如何在第二个窗体的edit里面显示. 请列出代码,可以的都给分
A ANiDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-18 #2 procedure TForm1.Edit1Change(Sender: TObject); begin Form2.Edit1.Text := Edit1.Text; end;
暗 暗夜中独舞 Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-18 #3 1.最笨的办法: uses Unit1; procedure TForm2.Timer1Timer(Sender: TObject); begin Edit2.text:=Form1.Edit1.text; end; 2. 键盘钩子 当焦点在edit1时,键盘钩子回调函数中给Form2发消息,在Edit2上赋上值 3.窗口子类化 子类化Edit1,当有输入消息的时候同时发消息给Edit2
1.最笨的办法: uses Unit1; procedure TForm2.Timer1Timer(Sender: TObject); begin Edit2.text:=Form1.Edit1.text; end; 2. 键盘钩子 当焦点在edit1时,键盘钩子回调函数中给Form2发消息,在Edit2上赋上值 3.窗口子类化 子类化Edit1,当有输入消息的时候同时发消息给Edit2