کد استفاده Enter به جای Tab در دلفی

خاصیت KeyPreview از فرم رو به True تغییر بدین و فقط کد زیر رو تو رویداد KeyPress از فرم بذارین

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

  if Key= #13 then begin

    keybd_event(VK_TAB,1,0,0);

    keybd_event(VK_TAB,1,KEYEVENTF_KEYUP,0);

    Key:= #0;

  end;

end;


یا از این کد هم میتونید استفاده کنید.

در رویداد onkeypress :

if (key=#13) then
begin
Key := #0;
Perform (CM_DialogKey, VK_TAB, 0);
end;