Formular nicht neu erstellen wenn schon Sichtbar.

[Die Muhkuh]

Hi,

Delphi-Quellcode:

if Form1 = nil then
begin
  Form1 := TForm1.Create(self);
  Form1.Show; 
end;

// oder
if not Assigned(Form1) then
begin
  Form1 := TForm1.Create(self);
  Form1.Show; 
end;