Mega Code Archive

 

Categories / Delphi / Forms

 

[] Nesneler arasında enter tuşu ve ok tuşlarıyla hareket etmenizi sağlar

Formda TabStop Özelliği True olan nesneler için TabOrder sırasına göre Enter ve Ok tuşlarıyla hareket etmenizi sağlar. Aşağıdaki kodu formun OnFormKeyDown kısmına yerleştirin ve Formun KeyPreview Özelliğini True Yapın. Hepsi bu kadar. Kolay gelsin... ________________________________________________________________________________ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ((Key = VK_Return) or (Key = VK_Down)) then begin keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), 0, 0); keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), KEYEVENTF_KEYUP, 0); end; if (Key = VK_UP) then begin keybd_event(VK_Shift, MapVirtualKey(VK_Shift, 0), 0, 0); keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), 0, 0); keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_Shift, MapVirtualKey(VK_Shift, 0), KEYEVENTF_KEYUP, 0) end; end; ________________________________________________________________________________ ÖMER UZUNER _________________________ Yazılım Geliştirme Uzmanı Sistem Analisti