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.