Вниз
Скачать: CL | DM;

Определние, что поступило сообщение   Найти похожие ветки 

 
Endi ©   (2003-07-18 15:35) [0]

Уважаемые мастера!!!
Каким образом форма может определить, что дочернее окно получило сообщение?


 
Юрий Федоров ©   (2003-07-18 15:40) [1]

подменить дочернему окну WindowProc.
Предварительно запомнить старый, вызвать его из нового


 
-= Demon =-   (2003-07-18 15:41) [2]

Получив от него соответствующее сообщение :) ...


 
Endi ©   (2003-07-18 15:45) [3]

На компоненте Panel1 лежит Edit1, как определить, что Panel1 получила сообщение WM_KEYDOWN?


 
-= Demon =-   (2003-07-18 15:52) [4]

Обрабатывать ON_KEYDOWN в Edit1...


 
Endi ©   (2003-07-18 15:52) [5]

А как это прописать?


 
-= Demon =-   (2003-07-18 15:54) [6]

Выбираешь Edit1, на закладке Object Inspector закладка Events, идешь на OnKeyDown - все!...


 
Endi ©   (2003-07-18 16:23) [7]

Каким образом можно применить WindowProc, я попробывал у меня она при создании формы посылает сообщение, а дальше молчание?


 
Юрий Федоров ©   (2003-07-18 16:40) [8]

Уточни, что именно нужно, поподробнее


 
Endi ©   (2003-07-18 16:53) [9]

Выглядит так:

procedure TForm1.WMCtlColorEdit(var Message : TMessage);
begin
if message.Msg = wm_CtlColorEdit then
SetBkMode(edit1.Handle, TRANSPARENT);
inherited;
end;

procedure Tform1.FormCreate(Sender: TObject);
begin
windowproc:=WMCtlColorEdit;
end;

причем так даже форма не прорисовывается.


 
Юрий Федоров ©   (2003-07-18 17:06) [10]

TForm1 = class(TForm)
...
private
FOldEdit1WndProc : TWndMethod;
procedure NewEdit1WndMethod(var Message : TMessage);
....
procedure Tform1.FormCreate(Sender: TObject);
begin
FOldEditWndProc:=Edit1.WndMethod;
Edit1.WndMethod:=NewEdit1WndMethod;
end;
...
procedure TForm1.NewEdit1WndMethod(var Message : TMessage);
begin
if message.Msg = wm_CtlColorEdit
then SetBkMode(edit1.Handle, TRANSPARENT)
else FOldEditWndProc(Message);
end;

примерно так



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

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



Память: 0.47 MB
Время: 0.014 c
14-100952
Князь Мышкин
2003-07-15 12:25
2003.07.31
Образец настоящего программирования


14-100948
VEG
2003-07-15 13:06
2003.07.31
Опять проблемы с синтаксисом Си...


1-100691
Katerina
2003-07-17 16:12
2003.07.31
Работа с TXMLDocument


1-100680
ruslan_as
2003-07-18 09:55
2003.07.31
После обработки обшибки try -.except у меня не работает Combobox


3-100615
Котяра
2003-07-03 19:07
2003.07.31
Хранимая процедура в запросе




   Наверх