Mega Code Archive

 

Categories / Delphi / Forms

 

Form içerisinde hareket

//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;