Y youdu Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #1 如何在一个edit框内输入的字符在另一个edit框内同样输入,也就是使两个edit发生同一个事件.
K kouchun Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #2 edit1.onchange(senderbject)<br>begin<br>eidt2.text:=edit1.text;<br>end;
引 引力 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #3 同上。<br>edit2.text := edit1.text;
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #4 如果使两个Edit框保持内容一致用kouchun的方法就可以实现,如果还要触发同一事件就需要在两个edit中引用同一事件处理。
F foxphone2003 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #5 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br>begin<br>edit2.text := edit1.text; <br>end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br>begin<br>edit2.text := edit1.text; <br>end;
Z zqqxh Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #6 同意楼上的,但写错了,应为:<br>procedure TForm1.Edit1Change(Sender: TObject);<br>begin<br>edit2.text:=edit1.text;<br>end;<br>我刚试了,[]
同意楼上的,但写错了,应为:<br>procedure TForm1.Edit1Change(Sender: TObject);<br>begin<br>edit2.text:=edit1.text;<br>end;<br>我刚试了,[]