Какое событие происходит?

← →
Den (2010-03-19 11:26) [0]

когда нужно развернуть форму свернутую в панель задач кнопкой минимизации?

← →
Den (2010-03-19 11:28) [1]

и как это обработать, допустим нужно чтобы происходило некоторое событие в момент восстановления формы

← →
Плохиш © (2010-03-19 11:34) [2]

WM_SYSCOMMAND

← →
Den (2010-03-19 12:18) [3]

Пишу так:

type TfrmMain = class(TdxRibbonForm) protected procedure WMGetSysCommand(var message : TMessage); message WM_SYSCOMMAND; ................................................................................ ................... IF (Message.wParam = SC_RESTORE) Then begin Application.Restore; Application.MessageBox(PChar("Восстановили"), "бла-бла-бла", MB_OK + MB_ICONERROR); AdvAlertWindow.Show; end Else Inherited;

ровным счетом ничего не происходит при восстановлении приложения, когда нажимаю на свернутое приложение в панели задач

← →
Плохиш © (2010-03-19 12:20) [4]

procedure TFormMain.WMSysCommand(var Message: TWMSysCommand); var CmdType: word; begin CmdType := Message.CmdType and $FFF0; if ( CmdType = SC_MINIMIZE ) and (Application.MainForm = Self) then FMinimiz := true; if (( CmdType = SC_RESTORE ) or ( CmdType = SC_MAXIMIZE )) and ( Application.MainForm = Self ) then FMinimiz := false; inherited; end;

← →
Den (2010-03-19 13:01) [5]

[Error] Main.pas(376): Undeclared identifier: "CmdType"
[Error] Main.pas(378): Undeclared identifier: "FMinimiz"

Какой то дополнительный модуль надо подключить?

← →
Медвежонок Пятачок © (2010-03-19 13:02) [6]

(var message : TMessage);

(var Message: TWMSysCommand);

← →
Den (2010-03-19 13:15) [7]

> Медвежонок Пятачок © (19.03.10 13:02) [6]

Это где пишеться? У меня написано

protected procedure WMGetSysCommand(var message : TMessage); message WM_SYSCOMMAND;

← →
Медвежонок Пятачок © (2010-03-19 13:21) [8]

Это где пишеться?

Это пишется в ответе на твой вопрос Плохишом.

У меня написано

Я вижу

← →
Den (2010-03-19 13:22) [9]

Да пардон пропустил. Но на FMinimiz все равно ругается, не знает что это

← →
Den (2010-03-19 14:18) [10]

Хм странно....все сделал как написал Плохиш, на сворачивание формы событие происходит, а на восстановление - нет....

(про FMinimiz так и не понял (()

> Den (19.03.10 13:22) [9]
>
> Да пардон пропустил. Но на FMinimiz все равно ругается,
> не знает что это

Ты у меня спрашиваешь, что это у тебя за переменная FMinimiz?

> Den (19.03.10 14:18) [10]
>
> Хм странно....все сделал как написал Плохиш, на сворачивание
> формы событие происходит, а на восстановление - нет....

тебе не повезло.

procedure TMainForm.ApplicationEvents1Minimize(Sender: TObject);
begin
Application.Restore;
end;

← →
Den (2010-03-19 22:23) [13]

> Плохиш © (19.03.10 16:51) [11]
Ты у меня спрашиваешь, что это у тебя за переменная FMinimiz?

У меня нет такой переменной. Вы написали ее в своем примере. Вообщем я разобрался, спасибо всем ответившим.

Какое событие происходит? Найти похожие ветки