Parent einer DllForm setzen ????

[Bernd29bln]

Hallo

Ich Lade mir in mein Hauptprogramm eine DLLForm. Ich möchte nun den Parent der DLLForm auf die Form des Hauptprograms setzen.

Delphi-Quellcode:

    procedure InitDLL(hAppHandle:Cardinal); stdcall; //<-- ich dachte hier an (Parent: Pointer)
    function ShowForm:Boolean; stdcall;
    function HideForm:Boolean; stdcall;

implementation


{$R *.dfm}

procedure InitDLL(hAppHandle:Cardinal); stdcall;
begin
   Application.Handle:=hAppHandle; // <-- aber wie Parent hier setzen????
end;

MfG Bernd

[Nuclear-Ping]

Der Parent deiner DLL-Form muss auf deine Hauptform (oder einer Komponente wie zB Panel) gesetzt werden.

[edit]
Also wenn ich das 3x lese, beantwortest du dir deine Frage doch selber ... :gruebel:
Was ist denn dein Problem?
[/edit]

[Bernd29bln]

Naja das ist ja meine frage wie ?
hab ich auch schon versucht da aber die dllform erst beim button klick geladen wird kann der compiler damitnix anfangen :(

MfG

[Nuclear-Ping]

Naja, ich kann nur raten, wie deine DLL aufgebaut ist.

Das Parent-Handle einer Form kannst du zu jeder Zeit setzen, auch in der "InitDLL-" oder "ShowForm"-Routine, wenn du die erweiterst und da das Handle deiner Hauptform mitgibst.
Dann setzt du in deiner DLL halt MyForm.Parent := MainFormHandle. Schau dir auch mal die API SetParent ([msdn]http://msdn2.microsoft.com/en-us/library/ms633541.aspx[/msdn]) an.

[Bernd29bln]

Hallo@all,

Schon klar, aber wie übermittel ich der dll das ich die hauptform mit parent meine ?
ich stecke da noch nicht so drin :(

MfG

[Bernd29bln]

habs schon danke

[Bernd29bln]

Hallo,

geht doch net so.

habs in der dll so geändert:

Delphi-Quellcode:

procedure InitDLL(Parent: Pointer); stdcall;
begin
 DLLForm.Parent := Application.MainForm;
end;

und im Programm so:

Delphi-Quellcode:

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
   InitDll(DLLForm.Parent);
   ShowForm;
end;

Was hab ich falsch gemacht?

MfG

[Nuclear-Ping]

In der DLL:

Delphi-Quellcode:

procedure InitDLL(Parent: Integer);
begin
  DLLForm.Parent := Parent;
end;

Im Programm:

Delphi-Quellcode:

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
   InitDll(DLLForm.Handle);
   ShowForm;
end;

[Bernd29bln]

Vielen Dank :thumb: