FindComponent Frage

[hitzi]

Auszug:
whith TForm2.create(self) do begin

ändern in
whith TForm2.create(application) do begin

So siehts dann aus:

Delphi-Quellcode:

var tf:TForm2; 
begin 
tf:=Application.FindComponent('test')as TForm2; 
if assigned(tf)=false then begin   //Form2 mit dem Namen Test wurde nicht gefunden 
     whith TForm2.create(application) do begin 
      name:='test'; 
      .... 
     end 
   end else begin //Form2 mit dem Namen Test wurde gefunden 
    whith (Application.FindComponent('test')as TForm2) do begin 
      .... 
    end; 
end;

MfG Hitzi