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