| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WindowProc внутри объекта [D6]

Страницы:   < 1 2 >

SPeller ©   (2002-07-30 05:58:00) 

Всем доброго времени суток! У меня такой вопрос: Можно ли назначить окну оконную процедуру которая внутри объекта ?

---

Starkom   (2002-07-30 08:09:00) [21]

Я может неправильно понял, но в исходниках TApplication в конструкторе (вызов CreateHandle)создается окно с оконной функцией WndProc, которая является методом самого TApplication.
Хотя, возможно, я не шарю, ведь TApplication это VCL. Посмотри, может, поможет.

---

SPeller   (2002-07-30 07:56:00) [22]

Дело в том, что я не использую VCL.

---

SPeller   (2002-07-30 07:55:00) [23]

Правильно, только реализация не та. Я имел ввиду (почему сразу не написал?:) виндовую процедуру :
function (Handle, Message:cardinal; wParam, lParam:integer);

---

MBo   (2002-07-30 06:42:00) [24]

Я правильно понял вопрос???


private
OldProc: TWndMethod;
procedure NewProc(var msg: TMessage);

procedure TForm1.FormCreate(Sender: TObject);
begin
OldProc := ScrollBox1.WindowProc;
ScrollBox1.WindowProc := NewProc;
end;

procedure TForm1.NewProc(var msg: TMessage);
begin
OldProc(msg);
case msg.Msg of
WM_VSCROLL: label1.caption := "vert";
WM_HSCROLL: label1.caption := "horiz";
end;
end;

---

Страницы:   < 1 2 >

Наверх