求助：光标在一个 Edit1 里，当我单击 enter 键，则 showmessage('ok'),这段程序要怎么写啊？

Question

求助：
光标在一个 Edit1 里，当我单击 enter 键，则 showmessage('ok'),这段程序要怎么写啊？procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        
end;这里要怎么写啊？谢谢！

Answer 1

if Key=#13 then ShowMessage('ok');

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then ShowMessage('ok');
       
end;

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=VK_RETURN then ShowMessage('ok');
end;