Form wird nicht gefunden

[MrDevil]

Ich erzeuge zur Laufzeit eine Form wie folgt;

m1_form := Tm1_form.create(m1_form); Dann suche ich nach dieser wie folgt;

Delphi-Quellcode:

procedure Ttb_form.Button1Click(Sender: TObject);
var
  AForm: TForm;
begin
  AForm := TForm(Application.FindComponent('m1_form'));

  if AForm = nil then
  ShowMessage('Nicht gefunden!');
end;

Aber leider finde ich die Form nicht. Wichtig ist das an der art des findens nichts geändert werden darf!

[Bernhard Geyer]

Wenn Du willst das das Formular in der Application-Forms-Auflistung zu finden ist mußt du es auch dort erstellen:

Application.CreateForm(Tm1_form, m1_form);

[mkinzler]

Du kannst auch nicht nach der Bezeichnung der Referenzvariable sondern nur nach dem Namen der Form suchen:

Delphi-Quellcode:

m1_form := Tm1_form.create(Application);
m1_form.Name := 'm1_form');

[Edit:Zitiert ohne genau zu Lesen. Sich selbst als Owner geht natürlich nicht]

[MrDevil]

Ich nahm die Zeile

Application.CreateForm(Tm1_form, m1_form); aus der DPR raus, da ich mit der hauptform wäredn des create auf ide Form zugreife und es so immer Zugrifsverletzungen gab.

also schrieb ich in der create der hauptForm
m1_form := Tm1_form.create(m1_form); das funzte nämlich...

wenn ich in der Create der Hauptform
Application.CreateForm(Tm1_form, m1_form); schreibe wird nur die Form "m1_form" angezeigt die Hauptform nicht

[SirThornberry]

das hier macht keinen Sinn:
m1_form := Tm1_form.create(m1_form); Warum übergibst du m1_form als Owner wenn du es ja gerade erst erstellst und es somit zu dem Zeitpunkt unbestimmt ist?
Im besten Fall ist m1_form zu diesem Zeitpunkt nil und somit kann man auch gleich:
m1_form := Tm1_form.create(nil); schreiben.

[MrDevil]

Zitat von SirThornberry:

das hier macht keinen Sinn:
m1_form := Tm1_form.create(m1_form); Warum übergibst du m1_form als Owner wenn du es ja gerade erst erstellst und es somit zu dem Zeitpunkt unbestimmt ist?
Im besten Fall ist m1_form zu diesem Zeitpunkt nil und somit kann man auch gleich:
m1_form := Tm1_form.create(nil); schreiben.

Ok das habe ich geändert - ändert aber nichts an der suche nach der Form

[SirThornberry]

du musst das von "Bernhard Geyer" und "mkinzler" kombinieren. Mit Application.FindComponent findest du nur die Forms welche als Owner Application bekommen haben.
Also entweder so:

Delphi-Quellcode:

m1_form := Tm1_form.create(Application);
m1_form.Name := 'm1_form';

oder

Delphi-Quellcode:

Application.CreateForm(Tm1_form, m1_form);
m1_form.Name := 'm1_form';

[MrDevil]

Zitat von SirThornberry:

du musst das von "Bernhard Geyer" und "mkinzler" kombinieren. Mit Application.FindComponent findest du nur die Forms welche als Owner Application bekommen haben.
Also entweder so:

Delphi-Quellcode:

m1_form := Tm1_form.create(Application);
m1_form.Name := 'm1_form';

oder

Delphi-Quellcode:

Application.CreateForm(Tm1_form, m1_form);
m1_form.Name := 'm1_form';

Ok danke und jetzt habe ich es auch begriffen!