Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.005 c
1-1322047862
Антоха
2011-11-23 15:31
2014.02.16
олучение одномерного массива вариантов из двумерного


15-1378133550
Степан Потапов
2013-09-02 18:52
2014.02.16
Кто переименовывает, а кто нет? (опрос)


2-1366377417
mefodiy
2013-04-19 17:16
2014.02.16
Не удаляется значение ключа реестра


2-1362774705
vegarulez
2013-03-09 00:31
2014.02.16
сервер на IdTCPServer


2-1365768017
__
2013-04-12 16:00
2014.02.16
Что может быть с системой если после int 3 спасает только Reset