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

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

Минимизация НЕ главной формы

Кефир87 ©   (2006-03-07 18:23:00) 

Меня сейчас наверно кинут к начинающим... Но просто такой простой вопрос меня поставил в тупик:
Form1 - Главная форма
На форм один нажимаем на кнопку и
Form2.Show;
Hide;

Мне нужно совершить некоторые действия (а именно "запуздырить иконку в трей" 8)) при минимизации Form2. И кстати она, Form2, сворачивается как-то странно. Может я подошел к этому вопросу как-то не так. С VCL дружу не очень хорошо...
Помогите.

---

Кефир87   (2006-03-07 19:30:00) [1]

Спасибо 8) Ошибка была в моей косорукости. Формы перепутал 8)

---

API   (2006-03-07 19:18:00) [2]

Мы точно говорим про НЕ главную форму?

Я говорю про любуюформу:

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm2 = class(TForm)
 private
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
 if (Message.CmdType = SC_MINIMIZE) then
   ShowMessage('123');  
 inherited;
end;

end.

---

Кефир87   (2006-03-07 19:09:00) [3]

Действительно странно. Мы точно говорим про НЕ главную форму?

В процедуре пишу следующее:

 if Message.CmdType = SC_MINIMIZE then MessageBox(0, '', '', 0);


Я вижу только такой результат:
http://cwdev.mykm.ru/stuff/tbar.png

Если же ткнуть в таскбар, тогда появляется сообщения... Странно...

---

API   (2006-03-07 18:52:00) [4]

Странно. У меня - приходит. Что я не так делаю?

---

Кефир87   (2006-03-07 18:48:00) [5]

> API ©   (07.03.06 18:27) [1]

Просто я начинающий уже с 4х летним стажем 8)

Спасибо, но это сообщение приходит только если ткнуть на кнопке в таксбаре. Если же нажать на кнопочку в заголовке, окно сварачивается (причем не в таскбар, а... над ним 8)) а сообщение не приходит...

---

API   (2006-03-07 18:27:00) [6]

Меня сейчас наверно кинут к начинающим...

И правильно сделают... :)

type
 TForm2 = class(TForm)
 <...>
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
 end;

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
 if (Message.CmdType = SC_MINIMIZE) then <...>  
end;

---

Наверх