Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Какое событие происходит? [D7, XP]

Den © (2010-03-19 11:26:00)
когда нужно развернуть форму свернутую в панель задач кнопкой минимизации?

Den (2010-03-19 22:23:00) [1]

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

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

Дмитрий С (2010-03-19 16:59:00) [2]
procedure TMainForm.ApplicationEvents1Minimize(Sender: TObject);
begin
Application.Restore;
end;

Плохиш (2010-03-19 16:51:00) [3]

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

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

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

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

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

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

Den (2010-03-19 13:22:00) [5]
Да пардон пропустил. Но на FMinimiz все равно ругается, не знает что это

Медвежонок Пятачок (2010-03-19 13:21:00) [6]
Это где пишеться?

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

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

Я вижу

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

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

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

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

Медвежонок Пятачок (2010-03-19 13:02:00) [8]
(var message : TMessage);

(var Message: TWMSysCommand);

Den (2010-03-19 13:01:00) [9]
[Error] Main.pas(376): Undeclared identifier: 'CmdType'
[Error] Main.pas(378): Undeclared identifier: 'FMinimiz'

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

Плохиш (2010-03-19 12:20:00) [10]
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 12:18:00) [11]
Пишу так:

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 11:34:00) [12]
WM_SYSCOMMAND

Den (2010-03-19 11:28:00) [13]
и как это обработать, допустим нужно чтобы происходило некоторое событие в момент восстановления формы

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »