en el dll
Código Delphi
[-]
function devolverFrame(aOwner : longint): longint; stdcall;
begin
result := longint(Tframe.create(TComponent(aOwner)));
end;
en tu forma:
Código Delphi
[-]
constructor TMiForma.create(aOwner : TComponent);
var
oFrame : TFrame;
begin
oFrame := TFrame(devolverFrame(longint(self));
oFrame.parent := self;
oFrame.color := clRed; oFrame.width : =150;
oFrame.height : =150;
oFrame.visible := true;
end;
saludos