Делфи. ФОрма поверх всех окон.

[Chudo4258]

Сообщение от Пепел Феникса

1)ShowWindow(Application.Handle,SW_ HIDE);
это та самая кнопка на панели.
2)OnCanClose событие в помощь.
3)назначьте обработчик в Application.OnMinimize

А можно поподробней? Что куда написать?

[Пепел Феникса]

1) в онкрит можно.
2)у формы событие..обратите внимание на параметр var Close(вроде так...или CanClose)
3)создайте у формы метод...допустим AppMinimize
type
TForm1=class
private
procedure AppMinimize(Sender:TObject);
//и тд

procedure TForm1.AppMinimize;
begin
Application.RestoreAllTopmost;
//так же советую тот самый SetWindowPos сделать
end;

в онкрит формы пишем
Application.OnMinimize:=AppMinimize ;



интерестно а окно со стилем WS_POPUP свернется по команде?
если нет, то надо поставить этот стиль форме

[Chudo4258]

form1.Left:=0;
form1.Top:=0;
form1.Width:=???;
form1.Height:=???;

как узнать параметры монитора???
хочу сделать чтобы форма была на весь монитор

[raxp]

GetSystemMetrics(SM_CXSCREEN) // ширина
GetSystemMetrics(SM_CYSCREEN) // высота

...и можно просто со свойством maximized формы поиграться.

[Chudo4258]

и еще расскажите по-подробней на вопрос с поста №4. Что-то не получается. В ответе Пепел Феникса (пост №12) выдает ошибку в этом месте:

Application.RestoreAllTopmost;

[raxp]

по посту #4, чтобы убрать с панели задач

procedure Tform.FormCreate(Sender: TObject);
begin
 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or
  not WS_EX_APPWINDOW);
...

...насчет RestoreAllTopmost, у мя в d6 нет такой опции.