procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = Word(#13) then begin ShowMessage('ok'); end; end;
if key=#13 then showmessage('ok');
5,386
社区成员
262,729
社区内容
加载中
试试用AI创作助手写篇文章吧