перекрыть WindowProc

← →
novai (2013-04-19 04:37) [0]

Как перекрыть WindowProc у динамически создаваемой формы?
Делаю:
SubStrate:= TForm.Create(nil); // SubStrate.WindowProc:= SubStrateWndProc; <-- если убрать комментарий форма не показывается SubStrate.BorderStyle:= bsNone; SubStrate.Show;

Код перекрытия:
procedure TFormExt.SubStrateWndProc(var Message: TMessage); begin case Message.Msg of WM_ACTIVATE: begin SendMessage(Handle, WM_ACTIVATE, WA_ACTIVE, 0); end; end; // inherited WndProc(Message); WindowProc(Message); end;
что делать?

← →
MBo © (2013-04-19 05:36) [1]

Нужно запомнить старую процедуру и вызывать её в перекрытой. Или WndProc вызывать.
А сейчас перекрытая вызывает себя же.

← →
novai (2013-04-19 07:32) [2]

так если inherited WndProc(Message); вызывать, то тож не показывает окно(

← →
novai (2013-04-19 07:46) [3]

а понял, что не так в [2]!

> запомнить старую процедуру и вызывать её в перекрытой

как это сделать?

← →
novai (2013-04-19 07:52) [4]

Спасибо! Разобрался сам.

перекрыть WindowProc Найти похожие ветки