P
PoeChan
Unregistered / Unconfirmed
GUEST, unregistred user!
窗体中有一个Edit,但是不接受回车
procedure Tfrm.edKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
ShowMessage('回车!');
end;
在KeyPress内也不行
procedure Tfrm.edKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
ShowMessage('回车!');
end;
在KeyPress内也不行