(dumme Frage) String => TForm?

[SneakyBagels]

Ja die Frage ist echt sehr dumm aber ich habe schon oft gesehen, dass es gute Lösungen für komische Problemstellungen gab.
Ist es möglich von einem String das passende TForm zu bekommen ohne nebenbei eine Liste der TForms (array) zu führen?

[Uwe Raabe]

Existiert das Form bereits? Dann kannst du über

Delphi-Quellcode:

for I := 0 to Screen.FormCount - 1 do begin
  if Forms[I].Name = 'MyFormName' then begin
  end;
end;

das gesuchte Form finden.

[SneakyBagels]

Screen.Forms[I].Name Das kannte ich noch nicht.

Wenn das so ist, dann brauche ich die Schleife in meinem Fall nicht.

Es ist so:
ich modifiziere meine Editfelder und hängen rechts ein Shape sowie ein Label dran.
Wenn man das Label klickt, wird das Edit geleert oder sonst irgendeine andere spezifische Aktion wird ausgeführt.

Der Label-Name ist etwa 'ClearEditLbl_' + IntToStr(i) + '_NameDesEdits'
Im OnClick des Labels pflücke ich nun Name auseinander und erhalte ein Array mit 3 Teilen. Teil 2 könnte ich dann Screen.Forms[] übergeben.

Problem gelöst. Danke.

[himitsu]

Zitat:

Ist es möglich von einem String das passende TForm zu bekommen ohne nebenbei eine Liste der TForms (array) zu führen?

Ohne nicht, aber Delphi führt soeine Liste bereit.

Zitat von SneakyBagels:

Teil 2 könnte ich dann Screen.Forms[] übergeben.

Nein!

Die Indize sind nicht fest und Ändern sich ständig.
Erstmal beim Erstellen/Freigenben von Forms
und dann schiebt die VCL das aktive Fenster immer auf Position 0, womit sich die Reihenfolge in der Liste ändert.

Zitat:

Der Label-Name ist etwa 'ClearEditLbl_' + IntToStr(i) + '_NameDesEdits'

Man glaubt es nicht, aber im TLabel gibt es ein Control-Property, wo man das Edit angeben kann.
Erstmal bekommt dann das Edit den Fokus, wenn man seinen Namen (das Label) anklickt
und in deinem Fall kann man mit diesem Property direkt auf das Edit zugreifen.

[SneakyBagels]

Zitat:

und dann schiebt die VCL das aktive Fenster immer auf Position 0, womit sich die Reihenfolge in der Liste ändert.

Gab es darüber nicht erst letztens ein Thema? Das wusste ich gar nicht, dass hier alles von Zeit zu Zeit auf Position 0 geschoben wird. Gut zu wissen!
Damit wäre mein Vorhaben also erstmal erledigt.

Zitat:

Man glaubt es nicht, aber im TLabel gibt es ein Control-Property, wo man das Edit angeben kann.
Erstmal bekommt dann das Edit den Fokus, wenn man seinen Namen (das Label) anklickt
und in deinem Fall kann man mit diesem Property direkt auf das Edit zugreifen.

Gibt es das auch für TPanels? Ich sehe gerade ich nutze ein TPanel und kein TLabel

[himitsu]

Nee, aber wenn das Panel im OI auf die Form gesetzt wurde, bzw. man eine Form als Owner gab, dann alle Forms durchlaufen und da drauf mit FindComponent nach dem Panel suchen.

[SneakyBagels]

Ich machs aktuell so

- Panel erzeugen und neben Edit positionieren. Name des Panels enthält das dazugehörige Edit
- OnClick zuweisen
- im OnClick frage ich Name ab und suche so mit FindComponent nach dem Edit.

[nahpets]

Nimm' statt des TPanel ein TLabel.
In die Eigenschaft FocusControl schreibst Du den Namen des zugehörigen TEdits rein.

Im OnClick des TLabel brauchst Du dann nur auf TLabel.FocusControl zugreifen und hast Dein TEdit (oder was Du auch sonst da so zugewiesen hast).
Das dürfte deutlich einfacher, flexibler und pflegeleichter sein, als TPanel und dann über Namenskonventionen suchen gehen.

[himitsu]

Nja, im Prinzip hast du da doch eine "Komponente, welche das Verhalten kapselt und diese Komponente merkt sich die Referenzen auf das, was sie erstellt hat und auf das zugewiesene Edit.
Und schon muß garnichts gesucht werden.

[Uwe Raabe]

Zitat von nahpets:

In die Eigenschaft FocusControl schreibst Du den Namen des zugehörigen TEdits rein.

Im OnClick des TLabel brauchst Du dann nur auf TLabel.FocusControl zugreifen und hast Dein TEdit (oder was Du auch sonst da so zugewiesen hast).

Und funktioniert auch mit Tastatur-Shortcuts.