Delphi: Скрыть окно при минимизации

[anakarn]

Нужно, чтобы по нажатию клавиши в шапке окна Свернуть окно на самом деле не сворачивалось, а пряталось.
Пробовал использовать ShowWindow - в событии OnMinimize - оказалось, сначала сворачивает, а потом посылает окну сообщение

Пробовал в форме на событии OnClick проверять координаты мыши: совпадают ли они с кнопкой сворачивания в шапке окна. Но оказалось, что в Delphi шапка окна в форму не входит и поэтому это работает только при клике на форму, а при клике на шапке - ничего

[/7y3uK]

а тебе обязательно, чтобы была стандартная шапка? если да, то читай Win32 API Reference в хелпе... если нет, то можно замастрячить свою шапку со своими кнопками...

[f00rd]

TMainForm = class(TForm)
  ...
private
  { Private declarations }
  procedure WMSysCommandMy(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
  { Public declarations }
end;
...
procedure TMainForm.WMSysCommandMy;
begin
 with Message do
  begin
    if (CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then
      ShowMessage('Minimizing')
    else inherited;
  end;
end;

вместо ShowMessage('Minimizing') вставляешь что-то типа Self.Hide =))))

[anakarn]

/7y3uK

можно замастрячить свою шапку со своими кнопками...

А как именно?

смотри в сторону сообщений WM_NCPAINT и WM_NCHITTEST

[/7y3uK]

anakarn

ну если по простому, то делаешь у формы BorderStyle:=bsNone, делаешь панельку, с кнопами, выравниваешь эту панельку на Top и пишешь своим кнопам нужные обработчики обработчики...