Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Вниз
Какое событие происходит? Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.169 c
