![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сворачивать дополнительную форму? [D7, XP]
Dysan © (2006-09-29 19:28:00)Такой вопрос...
Как свернуть дополнительную форму, когда основная форма срыта Hide
так чтоб она сворчивалась на панель задач а не над ней?
Dmitrij_K (2006-09-29 20:02:00) [1]Так при сворачивании не главной формы будет сворачивотся вся программа
TForm2 = class(TForm)
{...}
private
{ Private declarations }
Procedure WMSysCommand(var message: TWMSysCommand); message WM_SysCommand;
public
{ Public declarations }
end;
{...}
procedure TForm2.WMSysCommand(var message: TWMSysCommand);
begin
If message.CmdType = SC_MINIMIZE then
Aplication.Minimize
else
Inherited;
end;