passiert das auch, wenn du nun statt des application ein nil übergibst?
eventuell liegt es ja auch an was anderem
PS:
Delphi-Quellcode:
constructor TComponent.Create(AOwner: TComponent);
begin
FComponentStyle := [csInheritable];
if AOwner <> nil then AOwner.InsertComponent(Self);
end;
allerdings wird dieses nicht wieder entfernt, was du selber machen müßtest
(denn wenn jetzt Application mal seine Child-Liste durchgeht und seine Kinder etwas fragen will, dann knallt es schonmal, wenn ein Kind plötzlich einfach so fehlt, es aber nicht bescheidgesagt hat)
Delphi-Quellcode:
Form2:=TForm2.Create(application);
Try
Form2.Showmodal;
Finally
Application.RemoveComponent(Form2);
Form2.free;
End;
oder eben
Delphi-Quellcode:
Form2:=TForm2.Create(nil);
Try
Form2.Showmodal;
Finally
Form2.free;
End;
[add]
ich seh grad ... im Destructor
if FOwner <> nil then FOwner.RemoveComponent(Self);