TActionList Shortcut, nur wenn Focus gesetzt ist

[Eppos]

Hallo zusammen,

ich habe in meiner Maske eine TActionList mit einem Shortcut "entf" fürs Löschen einer Position in meinem Grid.
Ich habe aber auch ein Eingabe Feld. Ist der Fokus nun in diesem Feld, wird trotzdem im Grid eine Position gelöscht,
ich möchte aber das dieses Shortcut nur für das Grid reagiert, und wenn der Fokus im Eingabe Feld steht,
ganz normal die Funktion der Entf Taste nutzen.

Wie kann ich das bewerkstelligen?

Vielen Dank!

[shmia]

Im Event [TEdit].OnEnter die Action abschalten und im Event [TEdit].OnExit die Action wieder anschalten.
Die Action kann über das Property Enabled an- und abgeschaltet werden.

[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