//FORM ICINDE ENTER'A,YUKARI VE ASAGI OKLARA BASILDIGINDA TAB'A GÖRE BIR DIGERINE GITME
procedure TForm1.FormCreate(Sender: TObject);
begin
keyPreview := true;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Begin
Key := #0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key=vk_up then PostMessage(Handle, WM_NEXTDLGCTL, 1, 0);
If key=vk_down then PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;