Main form Key Prevıew

[a.mikayil]

Arkadaşlar, Ana formda kısayol tuşlarını kullanmak istiyorum ama bi türlü çalışmıyor. Kod şöyle:

Kod: Tümünü seç

  if (Key = VK_F7) and (Shift = [ssCtrl]) and (MenuServiceLib.Visible) then
    MenuServiceLib.Click;

hatta basit bi

Kod: Tümünü seç

    if (Key = VK_F7) then
    ShowMessage('Tamam');

olmuyor. Diğer formlarda çalışıyor. FormStyle mDI Form. Bi fikri olan var mı? Saygılarım

[muhcet]

KeyPreview'i True yaptın mı?

[a.mikayil]

Evet, KeyPreview =True

[thelvaci]

Formunuza bir adet TApplicationEvents nesnesi atıp OnMessage olay yöneticisine aşağıdaki kısa kodu yazabilirsiniz;

Kod: Tümünü seç

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_KEYDOWN then
    if Msg.wParam = VK_F5 then
    begin
      ShowMessage('EF BEŞ');
      Handled := true;
    end;
end;

[a.mikayil]

Teşekkürler. Ben de TactionList Kullandım. Ama sadece bir action oluşturup ShortCut olarak F5 verdim. İşimi yaptı.