Einzelnen Beitrag anzeigen

napsterxx

Registriert seit: 18. Mär 2007
Ort: Borland
556 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: DLL Form in TTabSheet integrieren

  Alt 31. Okt 2007, 13:04
Also ich rufe die DLL Form auf und dann muss ich der DLL noch über eine weitere Form ihren Parrent mitteilen?

Bis jetzt ruf ich die Form so auf:
DLL:
Code:
uses
  SysUtils,
  Classes,
  Windows,
  Forms,
  Controls,
  ExtCtrls,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

function ShowForm(): Integer; stdcall;
begin
  with TForm2.Create(nil) do
  try
    Result := ShowModal();
  finally
    Free;
  end;
end;

exports
ShowForm;

begin
end.

HauptForm:
Code:
function ShowForm(): Integer; stdcall;
external 'test.dll';


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowForm;
end;
Du derefernzierst p2 einmal und weißt die Adresse von i zu. Das heißt p2 (also der Zeiger auf einen Zeiger) zeigt auf den Zeiger p1 welchen du so auf i zeigen lässt.
  Mit Zitat antworten Zitat