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

Вниз

перекрыть 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]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.007 c