Dynamische Fenster über Funktion ansteuern

[cback]

Alles klar, das hat mir schon weitergeholfen.

Vielen Dank für die Hilfe

[mschaefer]

Moin, zusammen,

also ich habe da bei Torry noch was hilfreiches. Dort findet sich eine Routine, die alle Formualare einer Liste enumeriert.
Um an Daniels TList anzuknüpfen: Könnte mir vorstellen, dass man dort automatisch alle Formulare eintragen lässt.

Kurzum der Link: enumerate all TForms of a Project

Grüße // Martin

[Igotcha]

Warum geht "Self" nicht?

So wie ich das verstanden habe, ist die Funktion bestandteil der Form.

Dann also:

Delphi-Quellcode:

procedure AddAction(action:string);
begin
  Self.MiroEdit.SelText := #13#10 + '#' + #13#10 + '#-----[ ' + action + ' ]------------------------------------------'+ #13#10 + '#' + #13#10;
  Self.MiroEdit.SetFocus;
end;

Gruß Igotcha

[cback]

Self kann man bei Delphi ja nur in so dingen benutzen wie Create(self) usw. aber nicht als bezeichnung des aktiven, das geht nur bei JavaSkript soweit mir bekannt ist. Wenn man nur Self schreibt würde das zu nem undefinierten Bezeichner führen.

[cback]

Hi,

ich habe mal etwas rumexperimentiert und eine wesentlich einfachere und bessere Methode herausgefunden. Bei den ersten uses im Hauptformular wo also Windows, Messages usw. eingebunden ist füge ich einfach den Komponentennamen noch hinzu:

, editor_miro wobei editor_miro der Name des Forms ist.

Anschließend lege ich die Objektvariable nicht nur lokal an, da wo ich vorher das Fenster geöffnet habe, sondern Superglobal, also in die var-Liste noch vor "implementation"

  EditorMOD : TEditor_MOD;
Das öffnen der Fenster bleibt identisch, nur habe ich halt keine var mehr lokal gebraucht, da diese Superglobal besteht also aus

Delphi-Quellcode:

procedure ...;
  var EditorMOD: TEditor_MOD;
begin
  EditorMOD := TEditor_MOD.Create(self);
  EditorMOD.Caption := 'CBACK MIRO - Mod Editor';
  EditorMOD.Show;
end;

wurde nun

Delphi-Quellcode:

procedure ...;
begin
  EditorMOD := TEditor_MOD.Create(self);
  EditorMOD.Caption := 'CBACK MIRO - Mod Editor';
  EditorMOD.Show;
end;

Soo und im Editorfenster die Prozedur sieht nun einfach so aus:

Delphi-Quellcode:

procedure AddAction(action:string);
begin
  EditorMOD.MiroEdit.SelText := #13#10 + '#' + #13#10 + '#-----[ ' + action + ' ]------------------------------------------'+ #13#10 + '#' + #13#10;
  EditorMOD.MiroEdit.SetFocus;
end;

So kann ich diese Prozedur nun auch nutzen wenn mehrere Fenster geöffnet werden und es wird auch im richtigen Fenster zugeordnet. Ich brauche also kein Array, keine Liste, nix. Also die einzige Änderung ist, das Objekt für die Multi-Fenster nicht lokal, sondern Superglobal anzulegen, wie beispielsweise das beim Hauptformular von Delphi gemacht wird.

[Khabarakh]

Wie schickst du dann Actions an Fenster, die nicht das zuletzt erstellte sind? Oder geht es nur um dieses?

[cback]

Ich kann die Actions in allen Fenstern senden, das Windows API macht nämlich den Rest, das Fenster muss von Delphi so nur erzeugt werden. Wo es dann letztendlich hingeht verwaltet das Windows Fenstersystem. Die Actions werden nur in dem Fenster angezeigt, von wo sie aufgerufen wurden, also genau so wie es sein soll.

[Igotcha]

Zitat von cback:

Self kann man bei Delphi ja nur in so dingen benutzen wie Create(self) usw. aber nicht als bezeichnung des aktiven, das geht nur bei JavaSkript soweit mir bekannt ist. Wenn man nur Self schreibt würde das zu nem undefinierten Bezeichner führen.

Nee nee, "Self" ist das Objekt selber.

[Khabarakh]

Ich muss zugeben, dass ich von Actions keine Ahnung habe .
Aber trotzdem, wenn diese Funktion - von wem auch immer - aufgerufen wird, wird doch immer das Edit im zuletzt erstellten Formular geändert?

Delphi-Quellcode:

procedure AddAction(action:string);
begin
  EditorMOD.MiroEdit.SelText := #13#10 + '#' + #13#10 + '#-----[ ' + action + ' ]------------------------------------------'+ #13#10 + '#' + #13#10;
  EditorMOD.MiroEdit.SetFocus;
end;

[marabu]

Hallo Sebastian,

lass dich nicht vom Namen täuschen - es geht hier nicht um TAction. Außerdem stolperst du gerade über den nicht vorhandenen qualifier vor dem procedure identifier "AddAction" - da steht mitnichten TEditorMod.AddAction. Und außerdem wäre der Zugriff über die globale Form-Variable bei mehreren Instanzen ein grober Fehler.

Grüße vom marabu