TActionList Shortcut, nur wenn Focus gesetzt ist

[Hawkeye219]

Hallo Eppos,

du könntest auch die Action in der Behandlungsroutine für das Ereignis OnUpdate (de)aktivieren:

Delphi-Quellcode:

procedure TForm1.acDeleteLineUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Grid.Focused;      // nur wenn das Grid den Fokus besitzt
{alternativ:  
  TAction(Sender).Enabled := not Edit.Focused;  // nur wenn das Edit den Fokus NICHT besitzt
}
end;

Gruß Hawkeye