Hallo

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

zusammenfalten · markieren

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

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 ...
Was ist denn dein Problem?
[/edit]

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

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.

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

habs schon danke

Hallo,

geht doch net so.

habs in der dll so geändert:

markieren

Delphi-Quellcode:

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

und im Programm so:

markieren

Delphi-Quellcode:

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

Was hab ich falsch gemacht?

MfG

In der DLL:

markieren

Delphi-Quellcode:

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

Im Programm:

markieren

Delphi-Quellcode:

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

Vielen Dank