TActionList - gleicher ShortCut für zwei Actions

[Delphi.Narium]

Bevor Du Form.OnKeyXxx nutzt, probiere bitte, ob OnEnter bzw. OnExit nicht ausreichend sind, um dort Enabled auf True bzw. False zu setzen.

Das Ereignis OnUpdate der ActionList dürfte hier kaum die "richtige" Stelle sein. Die zu einem Treeview gehörende TAction muss halt enabled werden, wenn der Focus zum Treeview wechselt. Die andere Action muss in dem Moment auf Enabled := false gesetzt werden.

Wüsste gerade nicht, wie Du im OnUpdate-Ereignis der TActionList feststellen kannst, welcher Treeview gerade den Focus hat, um dann die entsprechende TAction auf Enabled := true zu setzen.

Frei nach dem Motto:

Delphi-Quellcode:

procedure TForm1.aclUpdate(Action: TBasicAction; var Handled: Boolean);
begin
  Action1.Enabled := TreeView1.HasFocus;
  Action2.Enabled := TreeView2.HasFocus;
  Handled := true;
end;

Beim Nachfolgenden könnte ich mir aber schon vorstellen, dass es funktioniert:

Delphi-Quellcode:

procedure TForm1.TreeView1Enter(Sender: TObject);
begin
  Action1.Enabled := True;
  Action2.Enabled := False;
end;

procedure TForm1.TreeView2Enter(Sender: TObject);
begin
  Action2.Enabled := True;
  Action1.Enabled := False;
end;

procedure TForm1.TreeView1Exit(Sender: TObject);
begin
  Action1.Enabled := False;
  Action2.Enabled := False;
end;

procedure TForm1.TreeView2Exit(Sender: TObject);
begin
  Action1.Enabled := False;
  Action2.Enabled := False;
end;

Prinzipiell kannst Du jederzeit im Programmablauf bei 'ner Action Enabled auf true bzw. false setzen. Das muss nicht im OnUpdate der Actionlist passieren. Im OnUpdate wird aber ggfls. (abhängig davon bei welcher Action gerade Enabled = true ist) entschieden, welche Action zum Zuge kommt.
Zumindest schalte ich in meinen Programmen im Ablauf bestimmte Actions ein oder aus, so dass immer die "passende" aufgerufen wird, auch wenn mehrere über den gleichen ShortCut verfügen. Da ich aber nur Delphi 7 habe, kann ich nicht sagen, ob das Verhalten bei neueren Delphis noch genauso geblieben ist.

Das Ereignis OnUpdate der ActionList habe ich noch nie benötigt. Und ich nutze grundsätzlich 'ne Actionlist und mehr oder weniger viele Actions für die Programmsteuerung.

Was auch noch gehen könnte: Die Logik, die Du momentan in den beiden Actions hast, verlagerst Du in zwei Prozeduren.

Dann machst Du die eine Action, die auf F2 reagiert, dort fragst Du dann sinngemäss sowas ab:

Delphi-Quellcode:

procedure TForm1.ActionFuerF2Execute(Sender: TObject);
begin
  if ActiveControl = TreeView1 then ProcedurFuerTreeView1;
  if ActiveControl = TreeView2 then ProcedurFuerTreeView2;
end;

[msohn]

Zitat:

Leider funktioniert F2 am anderen Treeview trotzdem nicht.

Das Problem ist, dass TCustomActionList.IsShortCut aufgibt, nach weiteren Actions zu suchen, sobald der Shortcut einer Action übereinstimmt - vollkommen unabhängig davon ob die Action enabled ist etc. also auch wenn Action.HandleShortcut False liefert.

Die einfachste Lösung dafür wären jetzt 2 getrennte ActionLists. Dann funktioniert der Ansatz mit dem disablen.

Leider ist TCustomActionList.IsShortCut nach all den Jahren immer noch nicht virtuell, so dass es keine wirklich elegante Lösung gibt.

[peterbelow]

Zitat von msohn:

Zitat:

Leider funktioniert F2 am anderen Treeview trotzdem nicht.

Das Problem ist, dass TCustomActionList.IsShortCut aufgibt, nach weiteren Actions zu suchen, sobald der Shortcut einer Action übereinstimmt - vollkommen unabhängig davon ob die Action enabled ist etc. also auch wenn Action.HandleShortcut False liefert.

Die einfachste Lösung dafür wären jetzt 2 getrennte ActionLists. Dann funktioniert der Ansatz mit dem disablen.

Leider ist TCustomActionList.IsShortCut nach all den Jahren immer noch nicht virtuell, so dass es keine wirklich elegante Lösung gibt.

TForm hat auch eine IsShortcut-Methode, und die ist virtual. Für eine Übersicht des Keyhandlings in der VCL sieh hier. Bitte Geduld, braucht sehr lange zum laden. Alternativ auch in Github.

[ThomasWB]

Zitat:

Die einfachste Lösung dafür wären jetzt 2 getrennte ActionLists. Dann funktioniert der Ansatz mit dem disablen.

Ich habe jetzt alle Aktionen für den Treeview, für den die Shortcuts nicht funktioniert haben, in eine eigene TActionList gesteckt - und es funktioniert perfekt. Vielen Dank.

Zitat:

Wüsste gerade nicht, wie Du im OnUpdate-Ereignis der TActionList feststellen kannst, welcher Treeview gerade den Focus hat, um dann die entsprechende TAction auf Enabled := true zu setzen.

Ich habe hier mal ein Besipiel für OnUpdate - nicht nur mit Fokus auf Treeview sondern noch ein paar Optionen mehr:

Code:

     actAufgabeDown.Enabled := (ActiveControl = listAufgaben) and
                               (listAufgaben.Selected<>nil) and
                               (listAufgaben.Selected.AbsoluteIndex<>listAufgaben.Items.Count-1);

Da ich nur ganz wenige doppelte oder mehrfache Benutzungen (Buttons, Menüs etc.) meiner Funktionen habe, wäre TActionList nicht so extrem wichtig/sinnvoll. Aber mit der OnUpdate-Methode kann ich direkt bei der Funktion ein enable/disable hinterlegen und muss dies nicht irgendwo in einer eigenen Funktion etc. programmieren. Somit habe ich alles an einer Stelle.