DLL - Frames in Form einbinden

[Fisti]

Hallo zusammen

Seit einiger Zeit versuche ich nun schon an diesem Problem herum zu basteln, komme aber leider nicht vom Fleck.

Die Form kann ich anzeigen (wenn ich den Code zwischen den Sternchen weglasse). Wie kann ich nun ein Frame dieser Form (auf das panel_main) hinzufügen?

Habe schon recht viel gegoogelt und au einiges ausprobiert, aber es will nicht funktionieren.

Wenn ich den Code in einem normalen Applikations-Projekt ausführe, dann funktioniert er, aber in der DLL nicht !!

Kann mir da jemand weiterhelfen? Danke schon im Voraus für die Antworten.

Gruss Christian

Delphi-Quellcode:

library TestDLL;

uses
  SysUtils,
  Classes,
  Dialogs,
  TestFrameUnit in 'TestFrameUnit.pas';
  TestFormUnit in 'TestFormUnit.pas';

var
  FTestForm: TTestForm;
  FTestFrame: TTestFrame;

{$R *.res}

{ TestDLL }

function TestStart(): boolean; stdcall;
begin

  try
    FTestForm := TTestForm.Create(nil);
    
    //*********************
    //Dieser Teil Funktioniert nicht -> "Frame has no parent window"
    FTestFrame := TTestFrame.Create(FTestForm);
    FTestFrame.Parent := FTestFrame.panel_main;
    FTestFrame.Visible := true; 
    //*********************
    
    FTestForm.ShowModal;
  finally
    FTestForm.Free;
  end;
    
end;

exports
  TestStart;

begin
end.

[mkinzler]

Du musst vorher die Form erzeugen

[Fisti]

ich steh gerade auf dem Schlauch :? sorry.. was muss ich dem code hinzufügen? kann im moment einfach nicht klar denken :wall:

[mkinzler]

Delphi-Quellcode:

    FTestForm := TTestForm.Create (Nil);
    FTestFrame := TTestFrame.Create(FTestForm);
    FTestFrame.Parent := FTestForm;
    FTestFrame.Visible := true;

[Fisti]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

    FTestForm := TTestForm.Create (Nil);
    FTestFrame := TTestFrame.Create(FTestForm);
    FTestFrame.Parent := FTestForm;
    FTestFrame.Visible := true;

erstmal danke für deine schnellen antworten.

sollte eigentlich auch so heisse:
FTestFrame.Parent := FTestForm.page_main;

war nur ein copy-paste fehler.


sonst sehe ich den fehler aber immer noch nicht? was hast du mit "form zuerst erzeugen" gemeint?
die wird doch mit
FTestForm := TTestForm.Create (Nil);
erzeugt, oder sehe ich da etwas falsch?

[mkinzler]

Zitat:

sonst sehe ich den fehler aber immer noch nicht? was hast du mit "form zuerst erzeugen" gemeint?
die wird doch mit
FTestForm := TTestForm.Create (Nil);
erzeugt, oder sehe ich da etwas falsch?

Nein, das siehst du richtig.

[Fisti]

hmm.. wenn ich denn code genau so verwende kommt immer der fehler "frame has no parent window"..

was mach ich denn noch falsch??