По-моему как написал выше ART, код
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow('Shell_TrayWnd','');
windows.SetParent(Button1.Handle,h);
Button1.left:= 50;
end;
является правильным, просто стоит мальца подработать позиции объектов. Вот только фигово, что получается поверх всего
