procedure TMainFrm.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=13 then showmessage(''); end;
Edit 的onkeypress事件中:if key=#13 then begin try (strtoint(Edit1.text)) except begin exit; end; end; showmessage();end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', #13]) then Key := #0; if Key = #13 then ShowMessage('OK'); end;
begin
if key=13 then
showmessage('');
end;
begin
try (strtoint(Edit1.text))
except
begin
exit;
end;
end;
showmessage();end;
begin
if not (Key in ['0'..'9', #13]) then Key := #0;
if Key = #13 then ShowMessage('OK');
end;