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

Minimize...   Найти похожие ветки 

← →
iMAN   (2002-10-04 01:43) [0]

При минимизации формы должна выполняться некая процедура...
Как перехватить это событие?

P.S. Я пробовал перехватывать WM_SYSCOMMAND - что-то там не совсем то получается...

---

← →
int64 ©   (2002-10-04 02:09) [1]

TForm1 = class(TForm)
private
procedure WMSYSCOMMAND(var Message: TWMSYSCOMMAND); message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;

...

procedure TForm1.WMSYSCOMMAND(var Message: TWMSYSCOMMAND);
begin
if (Message.CmdType=SC_MINIMIZE) then
Beep;
inherited;
end;

Вообщето, ели не получается, надо писать, как пробуешь.

---

← →
iMAN   (2002-10-05 00:36) [2]

tnx
Про inherited я совсем забыл =)

---

← →
Юрий Зотов ©   (2002-10-05 00:52) [3]

Неточно.

if Message.CmdType and $FFF0 = SC_MINIMIZE then...

Из справки:
In WM_SYSCOMMAND messages, the four low-order bits of the uCmdType parameter are used internally by Windows. To obtain the correct result when testing the value of uCmdType, an application must combine the value 0xFFF0 with the uCmdType value by using the bitwise AND operator.

---

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

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



Память: 0.45 MB
Время: 0.016 c