如何在lazarus中表示delphi的“if Key = VK_ENTER then”

mq2534

如何在lazarus中表示delphi的“if Key = VK_ENTER then”

wylton

一样的表示发。

zblb1

一样的表示发

wylton

有些地方表示方法是不一样的。
例如：
1，onkeypress
procedure TFormAltaEmpresa.Edit1KeyPress(Sender:TObject;var Key:char);
begin
    if (key = #13) then begin
     edit2.SetFocus;
     edit2.SelectAll;
    end;
end;

这里的key为char.你用key := key_enter 是通不过的。

2，onkeydown
procedure TTpvmain.FormKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
    if (key = VK_1) then begin
     key := 0;
     bitbtn1.Click;
     end;
  if (key = VK_2) then begin
     key := 0;
     bitbtn2.Click;
     end;
  if (key = VK_3) then begin
     key := 0;
     bitbtn3.Click;
     end;
  if (key = VK_4) then begin
     key := 0;
     bitbtn4.Click;
     end;
  if (key = VK_5) then begin
     key := 0;
     bitbtn5.Click;
     end;
  if (key = VK_6) then begin
     key := 0;
     bitbtn6.Click;
     end;
end;                     

这里 Key为Word，用vk_enter是可以的。