Hallo -
Ich habe nur eine (bzw zwei) Zeilen hinzugefügt:
Delphi-Quellcode:
library Formular1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
procedure Form1Anzeigen(parameter:Integer); stdcall;
begin
TForm1.Create(nil).Show(); // <-------------
Exit();
try
Application.CreateForm(TForm1, Form1);
Application.Run;
finally
Form1.Free;
end
end;
exports
Form1Anzeigen;
end.
Bislang fehlen der
dll dann natürlich noch die Methoden um die Form evtl. wieder zu verstecken und zu zerstören. Und natürlich sollte man sich die Form nicht anonym erzeugen sondern halt noch irgendwo merken (um sie dann
später vernünftig wieder vom Speicher nehmen zu können) und sich noch Gedanken machen, was passieren soll, wenn "von außen" die Erstellung einer Form angefordert wird, aber schon eine da ist (z.B. alte vorher schließen und zerstören).
Ob sich da dieses
Application
-Objekt selbst drum gekümmert hätte weiß ich nicht.