Hallo Delphigemeinde

Folgende (vereinfachte) Ausgangslage:

Es existieren die beiden Formulare „Form1“ und „Form2“, mit je einem Actionmanager.
Zusätzlich besitzt die „Form1“ noch ein Panel „Panel1“.

Diesem Panel weise ich nun die „Form2“ zu und lasse sie anzeigen.

markieren

Delphi-Quellcode:

Form2.Parent := Panel1.Parent;
Form2.Align := alClient;
Form2.BorderStyle := bsNone;
Form2.WindowState := wsMaxiMized;
Form2.Show;

Nachteil dieser Lösung ist es, dass Shortcut-Tasten jeweils nur Aktionen der "Form1" auslösen, nicht jedoch wie beabsichtigt auch (nur) von der "Form2"

Daher meine Frage:
Wie kann ich die Aktionen von der "Form2" dem Actionmanger von "Form1" zuweisen?

Lösungen wie

markieren

Delphi-Quellcode:

procedure TForm1.actF1Execute(Sender: TObject);
begin
  if sAktivesModul = 'Form2' then Form2.actF1Execute(self);
end;

würden zwar funktionieren, jedoch geht es doch sicher auch eleganter - oder?

Besten Dank für Anregungen.

Form1 in den uses Abschnitt von Form2 aufnehmen. Dann Form1.action....

Zitat von olaf:

Form1 in den uses Abschnitt von Form2 aufnehmen. Dann Form1.action....

Nach dem dritten Lesen des Posts glaube ich, daß er etwas anderes meint. Wenn ich das richtig verstanden habe, werden bei aktivem Form2 immer noch die ShortCut-Actions von Form1 ausgeführt. Es sollen aber die von Form2 ausgeführt werden. So ganz sicher bin ich mir aber auch nicht. Deswegen wäre hier ein konkretes Code-Beispiel sicher hilfreich.

Zitat von Uwe Raabe:

Wenn ich das richtig verstanden habe, werden bei aktivem Form2 immer noch die ShortCut-Actions von Form1 ausgeführt. Es sollen aber die von Form2 ausgeführt werden.

Genau so meine ich es. Sorry für die unklare Beschreibung.

Ein Beispiel kann ich gerne liefern.

In Form1 lässt sich im Ribbonmenü die Form2 aufrufen.

Zugewiesene Shortcuts:
F1 - Form 1
F2 - Form 2

Das Problem scheint zum einen auf das zuweisen des Parents

markieren

Delphi-Quellcode:

Form2.Parent := Panel1.Parent;
...
Form2.Show;

und zum anderen auf den fehlenden Focus auf der Form 2 zurückzuführen sein.

Gestern habe ich mit der Objekteigenschafr Actionmanager.TActionListCollection "gespielt" und da hat mein Beispiel einwandfrei funktioniert.
Leider habe ich das angepasste Beispiel nicht gespeichert und aktuell will es nicht wieder funktionieren.

Kennt ev. jemand einen "Workaround" für diese "Unschönheit"?

markieren

Delphi-Quellcode:

Form2.Parent := Panel1.Parent;
//

Was ist denn der Parent von Panel1? Form1?
Kannst du da nicht direkt Form2.Parent := Form1; schreiben oder self?

Zitat von Jumpy:

Was ist denn der Parent von Panel1? Form1?
Kannst du da nicht direkt Form2.Parent := Form1; schreiben oder self?

Der Parent des Panels ist Form1.

Versuchsweise habe ich den Code abgeändert zu

markieren

Delphi-Quellcode:

Form2.Parent := Panel1.Parent;
Form2.Show;

Der Effekt ist, das Form1 normal bestehen bleibt, die Form2 wird oberhalb der Form1 angezeigt.
Der Focus liegt aber weiterhin auf der Form1. Erst wenn ich die Form2 anklicke klappt es (logischerweise) mit den Shortcuts.

Ziel wäre es, die verschiedenen Forms jeweils im Panel1 einzubinden und auch jeweils die Shortcuts der Formulare benutzen zu können.
Das Ribbonmenu verwende ich, um die verschiedenen Forms aufzurufen.

Würde es einen Unterschied machen Frames statt Froms zu verwenden?
Werden die auf Form2 verwendeten Shortcuts auch auf Form1 verwendet (überschneidungen)?

Zitat von Jumpy:

Würde es einen Unterschied machen Frames statt Froms zu verwenden?
Werden die auf Form2 verwendeten Shortcuts auch auf Form1 verwendet (überschneidungen)?

Auf einem Frame kann man m.W. keine Actionlist verwenden und nein, die Schortcuts überschneiden sich nicht (siehe obiges Beispiel)