Form als .dll ???

[Bernd29bln]

Hallo,

Ich hab da mal ne Frage. Kann ich eine form als dll Laden ?
Und vor allem wie?

MfG

[JasonDX]

du kannst eine DLL erstellen, ein neues Forumular dem Projekt hinzufügen, und dann eine funktion exportieren, die dir eine Instanz deiner Formularklasse zurückgibt.

z.B.

Delphi-Quellcode:

function GiveMeAFormular: TForm;
begin
  application.Create(TForm1, result);
end;

dann kannst du im hauptprogramm das formular folgendermaßen anzeigen:

Delphi-Quellcode:

procedure ShowFormFromDLL;
begin
  with GiveMeAFormular do begin
    ShowModal;
    Free;
  end;
end;

[Bernd29bln]

Kann ich den ein Pannel als dll in meine form laden ?

MfG

[gsh]

im Prinzip des gleiche wie Chimaira gesagt hat mit dem Formular nur halt mit Tpanel und nicht ShowModal sondern parent, ... was man halt so braucht.

PS: Wenn du sagst des Panel ist ein "kind" vom Formular dann wird des Panel freigegeben wenn des Formular freigegeben wird (oder? *frage zu anderen DP-Mitglieder*)

[Bernd29bln]

hab die form jetzt in eine dll gepackt. wie kann ich sie per button aufrufen?

MfG

[malo]

Zitat von Bernd29bln:

hab die form jetzt in eine dll gepackt. wie kann ich sie per button aufrufen?

MfG

Schau dir mal bei Delphi-Source das DLL-Tutorial durch

[Bernd29bln]

Danke erstmal für deinen tip. irgend wie läuft mein code zum aufrufen nicht (undefinierter bezeichner dllformshow)

Delphi-Quellcode:

{$R *.dfm}
procedure Test(s: PChar); stdcall; external 'Project1.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  DLLFormShow;
end;

end;

MfG

[JasonDX]

Du hast die Prozedur oben Test genannt. (Ich hoffe, sie heißt in der DLL auch Test mit dem Parameter PChar)

somit musst du die funktion Test(irgendeinPChar) auch aufrufen.
Außer delphi spinnt, weil du tatsächlich irgendwo in deinem quellcode vor dem aufruf die funktion dllShowForm deklariert hast

[Bernd29bln]

da hab ich wohl einiges vergessen .
meine dll

Delphi-Quellcode:

library Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {dllform};

{$R *.res}

procedure DLLFormShow;
var
  dllForm: TForm;
begin
  dllForm:=TForm.Create(Application);
  try
    dllForm.ShowModal;
  finally
    dllForm.Release;
  end;  
end;

 
exports dllFormshow;

end.

function ?? ich hab da ne procedure

kann mir das mal jemand erklären?

MfG

[JasonDX]

dann musst du die funktion oben im programm, wo du sie aus der dll lädst, auch als dllShowForm laden
du hattest folgenden Code im Programm
procedure Test(s: PChar); stdcall; external 'Project1.dll'; das müsste werden:
procedure DLLFormShow; stdcall; external 'Project1.dll';