System Delphi

formun OnKeyPress kısmına aşağıdakileri yazın ve KeyPreview özel-
liğini True yapın.
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
if (Key = #13) then { Eğer ENTER'a basılmışsa... }
begin { ve Aktif olan control TEdit tipinde ise... }
if ActiveControl is TEdit then
begin
Key := #0; { Enter'a basılmamış gibi göster... }
{ ve TAB tuşunun işlemini yerine getir... }
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
end;