Checkbox mit Shortcut (TActionList)

[Klaus01]

Hallo,

ich stehe etwas auf dem Schlauch ..

Ich habe eine ActionList eine Methode dieser Liste ist:

Delphi-Quellcode:

procedure TForm1.imageFitToScreenExecute(Sender: TObject);
begin
  if fitToScreen.Checked then
    begin
      display.ScaleMode := smResize;
    end
  else
    begin
      display.ScaleMode := smScale;
      display.Scale := 1;
    end;
end;

Dieser Methode ist im ObjectInspector als ShortCut Ctrl+F zugeordnet worden.
Diese Methode ist auch der Checkbox (fitToScreen) als Action zugeordnet worden.

Wird der ShortCut verwendet wird auch die entsprechende Methode der Actionlist aufgerufen.
Nur es wird nicht der Zustand der Checkbox geändert.

Wenn ich die checkbox mit der Maus bediene wechselt die display Anzeige zwischen smResize und smScale - was sie auch soll.

Rufe ich die Methode per Shortcut auf - ändert sich nichts - weil sich der Zustand der Checkbox nicht ändert.

Wie kann ich das Problem lösen?

Grüße
Klaus