Image oder Picture an fremdes Fenster senden

[bitsetter]

Hi,

sicherlich nicht so elegant wie sirius Vorschlag, aber manchmal geht es auch so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.BevelOuter := bvNone;
  Panel1.BoundsRect:= Image1.BoundsRect;
  Image1.Left:= 0;
  Image1.Top:= 0;
  image1.Parent:= Panel1;
  Windows.SetParent(Panel1.Handle, (*handle*));
  panel1.Left:= 0; //Im fremden Fenster Positionieren
  panel1.Top:= 0;
end;

Das Panel wird benötigt, da das TImage kein WinControl ist.
Manche Controls in fremden Fenstern überzeichnen das Panel jedoch immer wieder.