Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Form1.Close; - закрытие
Application.Minimize; - сворачивание
ShowWindow(Form1.Handle,SW_MAXIMIZE); - развертывание

Чтобы можно было перетаскивать форму за любую точку, нужно добавить вот эту процедуру:

Код:

public
    procedure WMNChitTest(var M:TWMNCHitTest);message wm_NchitTest;
end;

Код:

procedure TForm1.WMNChitTest(var M: TWMNCHitTest);
begin
inherited ;
if M.Result=htClient then M.Result:=HTCAPTION;
end;