Boolean ändert nicht seinen Wert (?)

[xZise]

Habt ihr nicht gemerkt, dass es daran nicht gelegen haben kann ?

Man könnte es machen, aber da die Form eh über Execute aufgerufen wird, benötigt man es ja nicht im Create...

[edit]In der Mainfrm:

Delphi-Quellcode:

procedure TfrmMain.xiSettingsClick(Sender: TObject); 
begin 
 with TfrmSettings.Create(self) do 
 begin 
   try 
     if Execute(FadeOutOnClose, True, 0, FadeTime) then begin 
       FadeTime := GetFadeTime; 
       FadeOutOnClose := getfadeOutOnClose; 
       Crossfade := getCrossfade; 
     end; 
   finally 
     Free; 
   end; 
 end; 
end;

[/edit]