Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не минимизация второй формы [D6, XP]


novai ©   (2010-06-02 10:26:00) 

Есть 2 формы: Form1, Form1
создаются так:
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm2, Form2);
 Application.Run;
end.

обработчики первой формы:
procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Application.Minimize;
end;

при нажатии сворачиваются обе! формы, почему? как избежать сворачивания второй формы?

Пытался перекрыть обработку минимизации (через сообщения) 2й формы, не получилось их нет пока она не активна, и через таймер проверять на Visible...


Омлет   (2010-06-02 13:43:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1273938530&n=18&from=8


Игорь Шевченко   (2010-06-02 13:19:00) [2]

Приз за заголовок топика


Anatoly Podgoretsky   (2010-06-02 12:56:00) [3]

> novai  (02.06.2010 12:41:06)  [6]

А это по дизайну, или сворачиваешь все приложение, или его окна стопкой,
куда же еще их сворачивать, если они не имеют соственной кнопки на панели
задач, или заводи кнопку или так как есть.


novai   (2010-06-02 12:41:00) [4]


> change the value of its WindowState property

я это знаю, но тогда оно сворачивается сверху кнопки пуск...


Anatoly Podgoretsky   (2010-06-02 12:11:00) [5]

> novai  (02.06.2010 10:26:00)  [0]

А справку прочитать?

Note: Don't confuse the Minimize method, which minimizes an entire
application, with minimizing a form or window. To minimize, maximize, or
restore a window or form, change the value of its WindowState property.


Palladin   (2010-06-02 11:38:00) [6]

потому что не скомпилируется


oldman   (2010-06-02 11:37:00) [7]


> procedure TForm1.Button1Click(Sender: TObject);
> begin
>   Application.Minimize;
> end;


А почему не Form1.Minimize?


novai   (2010-06-02 11:07:00) [8]

спасибо


Palladin   (2010-06-02 10:49:00) [9]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1161


Наверх

Титульная страница Поиск, карта сайта Написать письмо