W wwwlaila Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-13 #1 我想在edit控件中输入数据后回车产生事件，不知是哪一个实践？
W westboy2000 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-13 #2 在Edit的KeyDown事件中写 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then //回车才执行 begin showmessage('Hello!'); end; end;
在Edit的KeyDown事件中写 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then //回车才执行 begin showmessage('Hello!'); end; end;
X xiongyp Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-13 #6 是这样： 在键盘press事件中 if key=chr(13) then button1click; //假设是按下按钮；
