Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.013 c