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

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

← →
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 так и не понял (()

---

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

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

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

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

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

---

← →
Дмитрий С ©   (2010-03-19 16:59) [12]

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

---

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

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

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

---

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

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



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