Ver Mensaje Individual
  #2  
Antiguo 08-05-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Reputación: 20
droguerman Va por buen camino
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; //para que lo veas
  oFrame.width : =150;
  oFrame.height : =150;
  oFrame.visible := true;
end;

saludos
__________________
self.free;

Última edición por droguerman fecha: 08-05-2007 a las 16:02:11.
Responder Con Cita