![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Minimize [D6]
usera © (2002-09-05 16:14:00)Подскажит плиз,
почему после вызова N1Click форма восстанавливается, но больше не сворачивается, вообще не обрабатывается TMainForm.ApplicationEvents1Minimize ???:
и второй вопрос: почему не работают ShowWindow ??????
procedure TMainForm.N1Click(Sender: TObject);
begin
//ShowWindow(MainForm.Handle,SW_SHOW);
Mainform.Visible:=True;
end;
procedure TMainForm.ApplicationEvents1Minimize(Sender: TObject);
begin
//ShowWindow(MainForm.Handle,SW_HIDE);
MainForm.Visible:=false;
end;
usera (2002-09-05 16:25:00) [1]procedure TMainForm.N1Click(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_Restore);
end;
procedure TMainForm.ApplicationEvents1Minimize(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end;
ВО КАК НАДО :-)