Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.09;
Скачать: CL | DM;

Вниз

Перехват WM_SYSCOMMAND   Найти похожие ветки 

 
Дмитрий   (2003-09-29 20:36) [0]

Перехватываю сообщение WM_SYSCOMMAND традиционным способом:

...
type
TMainForm = class(TForm)
...
protected
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;

var MainForm: TMainForm;

const IDM_ABOUT = 1;

implementation

{$R *.dfm}

procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if LOWORD(Msg.CmdType) = IDM_ABOUT then ShowMessage("РАБОТАЕТ!");
end;
...


Но после запуска окно перестает реагировать на закрытие, минимизацию и т.д. Ясно, проблемма в том, что сообщение не передается дальше на обработку функции DefWindowProc. Но как это сделать? Вот в чем вопрос.


 
MBo ©   (2003-09-29 20:42) [1]

inherited вызови


 
Тих   (2003-09-29 20:48) [2]

>передается дальше на обработку функции DefWindowProc
.. или вызови оную )


 
Дмитрий   (2003-09-29 20:55) [3]

Нда как же я забыл про inherited. Спасибо!



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

Текущий архив: 2003.10.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-27655
copyr25
2003-09-21 15:11
2003.10.09
Чего хотят женщины? О Боже! Чего же они хотят? S.Freud.


14-27670
Igit
2003-09-23 08:50
2003.10.09
CD-Audio


4-27784
AGGRESSOR
2003-08-04 12:49
2003.10.09
VK_ problem


1-27518
Cheater2k
2003-09-26 12:54
2003.10.09
Regionы


3-27347
Vitaly
2003-09-12 23:14
2003.10.09
Query.....