Wurde Form kreiert

[Bubblegun]

Hi,
ich würde in meinem Delphi Programm gerne überprüfen
ob ein Form schon existiert/kreiert wurde.
Wie kann ich das anstellen?

MfG

[MyRealName]

mit :

If Assign(Form1) Then ...

Wobei Form1 natürlich mit mit der Variable Deines Formulars zu ersetzen wäre ;-)

[Bubblegun]

ich habe das mal eingefügt
jedoch bekomme ich einen error:

Delphi-Quellcode:

if Assign(TClientForm) then begin
  Connect(Server.Text,StrToInt(Port.Text));
end
else begin
  with TClientForm.Create(Self) do begin
    ClientName := Username.Text;
    Connect(Server.Text,StrToInt(Port.Text));
    Show;
  end
end

[Error] Login.pas(63): Incompatible types: 'TPersistent' and 'Class reference'

[MyRealName]

Weil Du auf einen Typen testest in Deinem Code und nicht auf eine Variable :p

Böser Code :

Zitat:

If Assigned(TForm) Then ...

Guter Code :

Zitat:

var Form1 : TForm;
...
If Assigned(Form1) Then ...

Wenn man allerdings :

Zitat:

With TForm.Create(nil) Do...

arbeitet, hat man keine Klasseninstanz-Variable, die man testen kann :p


LG, MRN

[Bubblegun]

sorry dass ich nochmals nachfrage aber
es funktioniert immer noch nicht.
jetzt bekomme ich den fehler
"Type of expression must be BOOLEAN".
irgendwie fehlt mir noch das verständnis für die ganze sache.

Delphi-Quellcode:

if Assign(ClientForm) then begin
  Connect(Server.Text,StrToInt(Port.Text));
end

[MyRealName]

muß heißen If Assigned(ClientForm)...

Assign gibt es ja in Deinem Kontext auch, ist allerdings keine Boolsche Funktion ;-)

[scp]

Zitat:

Zitat von MyRealName

muß heißen If Assigned(ClientForm)...

Assign gibt es ja in Deinem Kontext auch, ist allerdings keine Boolsche Funktion ;-)

Guck mal weiter oben, er hat das Assign() von dir abgeschrieben :-)

[Bubblegun]

ouu.. :wall:

jetzt hats geklappt

thx!!

[MyRealName]

kp