T tanmingyl Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-10 #21 我用的是delphi7.0 mail: bikelittle@yahoo.com.cn
X xxjcw Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-10 #22 把代码放在keypress过程中 procedure TF_zc.Edit_zcmKeyPress(Sender: TObject; var Key: Char); begin if key =#13 then key:=#0; end;
把代码放在keypress过程中 procedure TF_zc.Edit_zcmKeyPress(Sender: TObject; var Key: Char); begin if key =#13 then key:=#0; end;
T tanmingyl Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-10 #23 procedure TForm3.LabeledEdit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then showmessage('ok'); end; 还是没有反应啊??
procedure TForm3.LabeledEdit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then showmessage('ok'); end; 还是没有反应啊??