Auf bisher nicht aufgerufene Forms zugreifen (form2.edit)

[Almond]

mhh, ich weiß nicht, wie ich das beschreiben soll.

Ich möchte in einem Aboutfenster unter einer Bedingung, nach dem Laden einer .ini Datei in Form1Create() in der bisdahin nicht aufgerufenen Form2 ein Label verändern.

quasi

Delphi-Quellcode:

Form1.create
loadValuesfromINI (bla);
begin 
ini-blabla
//ReadString ('lalalla ....

if xy <> 1 then form2.Label1.caption := 'unregistriert'; // <<< DA passiert der Fehler

und später dann auf Button1.click
form2.Show // About Fenster


Tja, wie mach ich das?
Wie kann ich die Form2.komponenten verändern?

[ManuMF]

Ich würde Unit1 in Unit2 unter uses (aber in der implementation) hinzufügen und das IF in Form2.Create verschieben.

Gruß,
ManuMF

[Almond]

mhh, ja, aber da wird die Entscheidung nicht getroffen..
xy is ne lokale Variable innerhalb der function.

Ich hab ne Variable Registered_status in Form1. als Public deklariert.
Wenn ich die in der if Bedingung mit True fülle und im About abfrage und in das Label einfüge, klappt das.
Aber das finde ich umständlich.
Würde gerne ohne Hilfsvariablen die Eigenschaften auf anderen Formen ändern.

[malo]

Schön, dass wir erfahren, wo der Fehler auftritt. Aber... was für ein Fehler?
Ich hab nämlich leider von meinen Eltern Kristallkugel-Guckverbot bekommen

[Almond]

der Fehler tritt genau dort auf.
in der Zeile, wo ich auf das noch nicht erstellte(?) Forular zugreifen möchte.

http://img58.imageshack.us/img58/9016/errorx3pr.gif

[mkinzler]

Zitat von Almond:

der Fehler tritt genau dort auf.
in der Zeile, wo ich auf das noch nicht erstellte(?) Formular zugreifen möchte.

Du hast den Grund ja schon selber erkannt. Die Variable Form2 ist eine Referenz auf ein Object vom Typ TForm2. Referenzen sind Zeiger. D.h. es existiert zu diesem Zeitpunkt keien Formular, auf welches du zugreifen könntest.

Delphi-Quellcode:

Form1 := TForm1.create; //Erzeugt Formular und weist es Form1 zu
Form2 := TForm2.create; //Erzeugt Formular und weist es Form2 zu
loadValuesfromINI (bla);
begin
ini-blabla
//ReadString ('lalalla ....

if xy <> 1 then form2.Label1.caption := 'unregistriert'; // <<< DA passiert der Fehler
Form2.show;

[ManuMF]

Zitat von Almond:

mhh, ja, aber da wird die Entscheidung nicht getroffen..
xy is ne lokale Variable innerhalb der function.

Ich hab ne Variable Registered_status in Form1. als Public deklariert.
Wenn ich die in der if Bedingung mit True fülle und im About abfrage und in das Label einfüge, klappt das.
Aber das finde ich umständlich.
Würde gerne ohne Hilfsvariablen die Eigenschaften auf anderen Formen ändern.

Es geht auch, wenn du eine Variable global definierst. Dann kannst du problemlos in anderen Units darauf zugreifen.
Das würde ich dann nicht umbedingt Hilfsvariable nennen.

Delphi-Quellcode:

unit Unit1;

...

var XY: Irgendwas;

Form1.Create
XY := Read...

{----------------------------------------}
unit Unit2;

...

implementation

uses Unit1;

Form2.Create
If (XY...

Gruß,
ManuMF