DLL richtig beenden

[Tommy82]

Showmodal + Free klappt nicht hintereinander

[ste_ett]

Zitat:

Zitat von Tommy82

Showmodal + Free klappt nicht hintereinander

Warum sollte das nicht gehen?
Es ist ein lokales Objekt, was nach Beendigung der Funktion "ShowModal()" ohne Weiteres wieder freigegeben werden kann. :)

[Tommy82]

Delphi-Quellcode:

Procedure TestDll_Start;
var Form1 : TForm1;
BEGIN
 Form1 := TForm1.Create(NIL);
 Form1.ShowModal;
 Form1.Free;
END;

Formular bleibt offen, es tut sich nix
mfg

Tommy82

[Tommy82]

Delphi-Quellcode:

Procedure TestDll_Start;
var Form1 : TForm1;
BEGIN
 Form1 := TForm1.Create(NIL);
 Form1.Show;
 Form1.Free;
END;

da schließt sich das Fenster SOFORT wieder (flackert).

Aber wie baue ich es nun in die Form1 ein?

[MyRealName]

setz mal in den Optionen von exe und dll auf "build with runtime packages" und lass dort RTL und VCL drin stehen. das sollte dein Problem beheben, denn ohne arbeiten exe und DLL jeweils mit einer eigenen Kopie der VCL.
Ansonsten ist es kein problem, folgendes zu machen :

Delphi-Quellcode:

  form1 := TForm1.Create(Application);
  try
    form1.showmodal;
  finally
    form1.free;
  end;

[Tommy82]

Wenn ich auf das Formular einen Butten setze und den mit

Delphi-Quellcode:

Self.Release oder Self.Free

setze, dann klappt das auch.

mfg

Tommy82

[oki]

Hi,

das ist ein Code den ich in einer meiner Kompos zum aufruf eines Einstellungsfensters benutze. Klappt anstandslos:

Delphi-Quellcode:

procedure TBaseSeyControl.PropertyButtonClick(Sender: TObject);
var PropForm : TBaseSeyControlPropForm;
begin
   PropForm := TBaseSeyControlPropForm.Create(self);
   try
     LoadItemsinPropertyForm(PropForm);
     PropForm.ShowModal;
     LoadItemsfromPropertyForm(PropForm);
   finally
     FreeAndNil(PropForm);
   end;
end;

LoadItemsinPropertyForm und LoadItemsfromPropertyForm sind meine Methoden zum Laden und Lesen der Einstellungswerte. Also nicht dran stören.

Gruß oki

[Tommy82]

Auch interressant, werde ich mal bei der nächsten Gelegenheit testen.

mfg

Tommy82