FindForm

jaenschi · Beiträge: 89 Win XP, Debian D7

Hallo,
ich suche eine Funktion mit der ich eine dynamisch erstellte Form anhand ihres Namens finden kann.
Gibt es sowas oder wie kann ich da vorgehen?
Ich möchte das dann so in der Art ansprechen:

markieren

Delphi-Quelltext

1:	findform('test').Caption:='Test';

ScorpionKing · Beiträge: 1150 Win XP

du kannst die handles bekommen, aber das handle dann wie eine form anzusprechen klappt nicht!

MfG, Scorpion!

_________________
Aus dem Urlaub zurück!

jaenschi · Beiträge: 89 Win XP, Debian D7

Gibt es da keine Möglichkeit?
Man könnte auch sagen, ich habe ein String-Variable mit dem Namen des Fensters und möchte dann Proceduren des Forms nutzen, das den Namen des Wertes der Stringvariable hat. Den Namen der Stringvariable weiß ich aber vor dem Ausführen noch nicht!

wulfskin · Verfasst: Fr 25.02.05 21:21

Hallo,

speicher die dynamisch erstellte Form doch in einem Array/Liste/globale Variable. Dann kannst du später bequem darauf zugreifen.

Gruß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

ScorpionKing · Beiträge: 1150 Win XP

wenn das ginge..... *träum*
du kannst das fenster verstecken, den titel ändern etc. aber du kannst keine funktionen oder proceduren davon verwenden!

_________________
Aus dem Urlaub zurück!

wulfskin · Verfasst: Fr 25.02.05 21:31

Wenn die Methoden Teil der Klasse sind, sollte das kein Problem darstellen, so fern sie öffentlich deklariert sind.

Gruß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

jaenschi · Beiträge: 89 Win XP, Debian D7

Jetzt muss ich aber die Objekte auf dem Form ansprechen.
Also z.B.: findform('test').Edit1.Text:='test';
Ist das überhaupt möglich?

Sprint · Beiträge: 849

jaenschi hat folgendes geschrieben:

ich suche eine Funktion mit der ich eine dynamisch erstellte Form anhand ihres Namens finden kann.

Kommt drauf an wie du deine Form erstellt hast und ob du mit "Name" den Fenstertitel oder die Eigenschaft "Name" meinst.
FindComponent von TApplication bietet dir auf jeden Fall eine Möglichkeit.

_________________
Ciao, Sprint.

IngoD7 · Beiträge: 629 D7

ScorpionKing hat folgendes geschrieben:

wenn das ginge..... *träum*
du kannst das fenster verstecken, den titel ändern etc. aber du kannst keine funktionen oder proceduren davon verwenden!

Kannst aufwachen. Das geht natürlich.

Mit dem Namen der Komponente, der Methode FindComponent und evt. mit Typumwandlungen kann man auf alle Teile einer dynamisch erzeugten Komponente zugreifen.

Um beim Beispiel/Wunsch von jaenschi zu bleiben, hier gleich ein Beispiel. Bemerkung vorab: Ich würde das so nie programmieren, sondern die dynamisch erzeugten Komponenten in Arrays ablegen oder einzelnd in var deklarieren, um sie dann per MyVariable:=TTyp.Create() zu erzeugen und später dann über MyVariable darauf zuzugreifen.
Das folgende Beispiel gilt also nur der Verdeutlichung dessen, was alles geht.
Es werden dort sehr wohl Eigenschaften und Methoden der Komponenten bearbeitet/benutzt.

Es ist ein Form mit 5 Buttons drauf. Die Funktion der Buttons geht aus ihrem Namen (siehe Name der jeweiligen OnClick-Routine) hervor:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.BtnNeueFormErstellenClick(Sender: TObject);
//Neue Form mit Edit drauf dynamisch erstellen und anzeigen
begin
with TForm.Create(Application) do
  begin
  name := 'NeueForm';
  visible := true;
  end;
with TEdit.Create(Application.FindComponent('NeueForm')) do
  begin
  name := 'NeuesEdit';
  parent := TForm(Application.FindComponent('NeueForm'));
  end;
end;

procedure TForm1.BtnEditMitAnderemTextFuellenClick(Sender: TObject);
begin
TEdit(TForm(Application.FindComponent('NeueForm')).FindComponent('NeuesEdit')).Text := 'Geht doch';
end;

procedure TForm1.BtnEditLeerenClick(Sender: TObject);
begin
TEdit(TForm(Application.FindComponent('NeueForm')).FindComponent('NeuesEdit')).Clear;
end;

procedure TForm1.BtnNeueFormVersteckenClick(Sender: TObject);
begin
TForm(Application.FindComponent('NeueForm')).Hide;
end;

procedure TForm1.BtnNeueFormAnzeigenClick(Sender: TObject);
begin
TForm(Application.FindComponent('NeueForm')).Show;
end;

@jaenschi
Schau dir das mal in Ruhe an.
Solltest du das mal ausprobieren wollen - den ersten Button musst du dann als erstes einmal drücken, damit das neue Form und das neue Edit erstmal erzeugt sind.

jaenschi · Beiträge: 89 Win XP, Debian D7

Pefekt!

Genau sowas habe ich gesucht! Funktioniert super!

jaenschi · Beiträge: 89 Win XP, Debian D7

Hab nochmal eine Frage:
Ich habe jetzt folgenden Code geschrieben, um einen Button zu deaktivieren:

markieren

Delphi-Quelltext

1:	TButton(TForm(Application.FindComponent('id'+id)).FindComponent('Button1')).Enabled:=False;

Da gibt er mir allerdings einen Speicherfehler aus!
Wenn ich nur

markieren

Delphi-Quelltext

1:	TForm(Application.FindComponent('id'+id)).Enabled:=False;

schreibe, dann deaktiviert er das Form(logisch;))
Der Fehler muss also irgendwie mit dem zweiten FindComponent zu tun haben!?

Sprint · Beiträge: 849

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  C: TComponent;
begin

  C := Application.FindComponent('id' + id);
  if Assigned(C) and (C is TForm) then
  begin
    C := C.FindComponent('Button1');
    if Assigned(C) and (C is TButton) then
      (C as TButton).Enabled := False;
  end;

_________________
Ciao, Sprint.

jaenschi · Beiträge: 89 Win XP, Debian D7

Ist der Code getestet?
Weil bei

markieren

Delphi-Quelltext

1:	(C as TButton).Enabled := False;

verursacht er bei mir immer ein Speicherfehler

Sprint · Beiträge: 849

jaenschi hat folgendes geschrieben:

Ist der Code getestet?

Natürlich.

Zitat:

Weil bei verursacht er bei mir immer ein Speicherfehler

Ich weiß nicht, was du vorm PC so machst.

_________________
Ciao, Sprint.

jaenschi · Beiträge: 89 Win XP, Debian D7

Ups! Hab mich vertan. Der Speicherfehler passiert erst danach. :oops:

Dein Code ist natürlich perfekt;)

IngoD7 · Beiträge: 629 D7

jaenschi hat folgendes geschrieben:

Ich habe jetzt folgenden Code geschrieben, um einen Button zu deaktivieren:
TButton(TForm(Application.FindComponent('id'+id)).FindComponent('Button1')).Enabled:=False;
Da gibt er mir allerdings einen Speicherfehler aus!

Wenn es einen Button mit Namen "Button1" auf dem Form gibt, dann funktioniert das auch!

Dass man trotzdem Sicherungen einbauen sollte (welche auch immer), ist eine andere Sache.

Kleine Anmerkung zum Code von Sprint (siehe Bemerkungen im Code):

Sprint hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  C: TComponent;
begin

  C := Application.FindComponent('id' + id);
  //if Assigned(C) and (C is TForm) then      //Doppelte Prüfung auf nil.
  if (C is TForm) then                    //So reicht es aus.
  begin
    C := C.FindComponent('Button1');
    //if Assigned(C) and (C is TButton) then  //Doppelte Prüfung auf nil.
    if (C is TButton) then                //So reicht es aus.
      (C as TButton).Enabled := False;      
  end;

Sprint · Beiträge: 849

@IngoD7: Immer noch besser als:

IngoD7 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	TEdit(TForm(Application.FindComponent('NeueForm')).FindComponent('NeuesEdit')).Text := 'Geht doch';

@jaenschi:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  C: TComponent;
begin

  C := Application.FindComponent('id' + id);
  if Assigned(C) then
    if (C is TForm) then
    begin
      C := C.FindComponent('Button1');
      if Assigned(C) then
        if (C is TButton) then
          (C as TButton).Enabled := False;
    end;

end;

_________________
Ciao, Sprint.

IngoD7 · Beiträge: 629 D7

Sprint hat folgendes geschrieben:

@IngoD7: Immer noch besser als:

IngoD7 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	TEdit(TForm(Application.FindComponent('NeueForm')).FindComponent('NeuesEdit')).Text := 'Geht doch';

Warum so giftig?

Aus meinen Postings geht doch klar hervor, dass a.) ich das Beispiel nur zur Verdeutlichung der programmtechnischen Möglichkeiten so gebracht habe und b.) Sicherungen natürlich sinnvoll sind.

Zu deinem Code:
Ich glaube, du hast mich missverstanden.
Das Assigned ist immer noch überflüssig. Assigned(C) ergibt false, wenn C = nil ist. Die is-Abfrage ergibt (unter anderem) ebenfalls false, wenn C = nil ist. Deshalb ist die is-Abfrage alleine ausreichend.

Sprint · Beiträge: 849

IngoD7 hat folgendes geschrieben:

Ich glaube, du hast mich missverstanden.

Ich habe dich schon richtig verstanden. Das liegt nur daran, dass ich mir das angewöhnt habe, jeden Zeiger bzw. Objektreferenz zu überprüfen. Genau so überprüfe ich jedes Fensterhandle mit IsWindow.

_________________
Ciao, Sprint.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme