Скачать: CL | DM;

Как отловить минимизирование формы ?   Найти похожие ветки 

← →
Блондинка   (2004-04-13 13:25) [0]

Тупой сабж .. но надо !

---

← →
RDen   (2004-04-13 13:43) [1]

type
 TForm1 = class(TForm)
   
   procedure FormCreate(Sender: TObject);
   procedure AppMinimize(Sender: TObject);

..............

var
 Form1: TForm1;
 var i:integer;

.............
procedure TForm1.AppMinimize(Sender: TObject);
begin
i:=i+1;
 Application.Minimize;
 form1.caption:="Приложение было свёрнуто "+inttostr(i) +" раз";
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
  Application.OnMinimize := AppMinimize;
end;

---

← →
Семен Сорокин ©   (2004-04-13 14:03) [2]

Блондинка   (13.04.04 13:25)  
надо обработать сообщение WM_SYSCOMMAND + SC_MINIMIZE

---

← →
Блондинка   (2004-04-13 14:06) [3]

Возможно Вы меня неправильно поняли .. мне нужно минимизировать весь проект когда минимизируется одна из форм.
допутси есть всего две форма form1 и form2 когда я минимизирую 2-ю форму она  в левый нижний угол сворачивается а 1-я форма активная становится .. а мне надо перехватить нажатие коноки минимизации формы в правом верхнем углу (где еще закрыть) и свернуть все приложение на панель задач

---

← →
Блондинка   (2004-04-13 14:07) [4]

> Семен Сорокин ©   (13.04.04 14:03) [2]

это как ?

---

← →
Гаврила   (2004-04-13 14:11) [5]

>>Блондинка   (13.04.04 14:07) [4]

A window receives this message when the user chooses a command from the window menu (also known as the System menu or Control menu) or when the user chooses the Maximize button or Minimize button.

---

← →
Блондинка   (2004-04-13 14:16) [6]

в тексте будет выглядеть

---

← →
Семен Сорокин ©   (2004-04-13 14:20) [7]

Блондинка   (13.04.04 14:06) [3]
сделай одного предка для своих форм, а в него добавь:
type
 TMyForm = class(TForm);
 private
   procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
 end;

procedure TMyForm.WMSysCommand(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
 Application.Minimize
end;

---

← →
Семен Сорокин ©   (2004-04-13 14:24) [8]

Семен Сорокин ©   (13.04.04 14:20) [7]
про inherited забыл в обработчике.

---

← →
Блондинка   (2004-04-13 14:34) [9]

> Семен Сорокин ©   (13.04.04 14:20) [7]
> про inherited забыл в обработчике.

куда его надо запихнуть ?

---

← →
Семен Сорокин ©   (2004-04-13 14:37) [10]

Блондинка   (13.04.04 14:34) [9]
куда его надо запихнуть ?
можно попробовать сюда
:))
procedure TMyForm.WMSysCommand(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
 Application.Minimize;
inherited
end;

---

← →
Брюнет   (2004-04-13 14:38) [11]

:)

---

← →
Блондинка   (2004-04-13 14:41) [12]

> Семен Сорокин ©   (13.04.04 14:37) [10]

спасибо.  работает .

---

← →
panov ©   (2004-04-13 14:50) [13]

>Блондинка   (13.04.04 13:25)

Не только сабж.

---

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

Скачать: CL | DM;



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