Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Delphi
Показать сообщение отдельно


Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


vasketsov
Код: Выделить весь код
procedure Min(var Msg: TMessage); message WM_SYSCOMMAND;
....................

procedure TForm1.Min(var Msg: TMessage);
begin
   if Msg.WParam = SC_MINIMIZE then
   else inherited;
end;
Сворачивается лишь при минимизаии окна через системное меню, ежели через меню панели задач или по команде свернуть все окна то нифига.

Рыл в инете и надыбал исходник проги на с++, там это самое несворачиваемое окошко является диалоговым в режиме Modal (главное окно там ваще невидимое). Но я еще не совсем разобрался как ето реализовано.

Отправлено: 22:29, 08-04-2004 | #10

Название темы: Delphi