| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать форму, не сворачиваемую кнопкой
Алексей К. © (2002-07-30 22:31:00)Как сделать форму, не сворачиваемую кнопкой "Свернуть все окна" на панели задач и горячими клавишами. Форма должна только закрываться и ничем не сворачиваться. Либо видна, либо закрыта.
Eugene Lachinov (2002-07-31 14:38:00) [1]>Song
Потому что это был бы следующий вопрос :)
Song (2002-07-31 09:47:00) [2]2Eugene Lachinov © (30.07.02 22:56)
А при чём тут завершение Windows?
Eugene Lachinov (2002-07-30 22:56:00) [3]procedure TForm1.WMQueryEndSession(var Message : TMessage);
begin
FShutdown := True;
inherited
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FShutdown
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FShutdown := True;
Close
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE)
end;
| |
