Текущий архив: 2006.04.09;
Скачать: CL | DM;

Вниз

Минимизация НЕ главной формы   Найти похожие ветки 

← →
Кефир87 ©   (2006-03-07 18:23) [0]

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

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

---

← →
API ©   (2006-03-07 18:27) [1]

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

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

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;

---

← →
Кефир87 ©   (2006-03-07 18:48) [2]

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

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

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

---

← →
API ©   (2006-03-07 18:52) [3]

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

---

← →
Кефир87 ©   (2006-03-07 19:09) [4]

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

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

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


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

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

---

← →
API ©   (2006-03-07 19:18) [5]

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

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

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:30) [6]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.09;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.028 c