A pesar de que lo solucionaste, quiero ilustrar el ejemplo que puse en C++Builder:
Cita:
Empezado por escafandra
Un ejemplo con un TBitBtn:
Código:
TBitBtn* B = new TBitBtn((void*)NULL);
B->Left = 100;
B->Top = 100;
B->Width = 75;
B->Height = 25;
B->Parent = this;
::SetParent(B->Handle, Panel1->Handle); // Lo pasa a otro ventana
Saludos.
|
Lo traduzco a delphi. Probado en delphi 6:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
B: TBitBtn;
begin
B:= TBitBtn.Create(nil);
B.Left:= 10;
B.Top:= 10;
B.Width:=Image1.Picture.Width;
B.Height:= Image1.Picture.Height;
B.Parent:= self;
B.Glyph:= Image1.Picture.Bitmap;
Windows.SetParent(B.Handle, Panel1.Handle);
end;
Saludos.