Question

delphi中Edit1键盘ENTER按下事件

键盘按下运行 怎么实现
form1.Label1.Caption:=form1.Edit1.Text;

Answer 1

edit 的 onkeydown 事件
if 13=key then //13 是回车
begin
//你要做的事
end;

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
form1.Label1.Caption:=form1.Edit1.Text;
end;