вот так можно таскать форму за картинку(Timage):
Code
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;
чтобы свернуть форму
Code
form1.WindowState:=wsMinimized;
чтобы закрыть
чтобы развернуть
Code
form1.WindowState:=wsMaximized;
свернуть обратно
Code
form1.WindowState:=wsNormal;
дерзай.
