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

Изменения обработчика сообщений у контрола.   Найти похожие ветки 

← →
User   (2003-05-25 19:00) [0]

Мастера хочется узнать правильно ли написан обработчик ?


var
...
OldRichEditProc : Pointer;
...

Function NewRichEditProc(hWindow: THandle; uMsg, wParam, lParam: Integer): Integer; Stdcall;
Begin
If uMsg = WM_PAINT Then
Begin
// Тут я пишу свой код
End
Else
Result := CallWindowProc(OldRichEditProc, hWindow, uMsg, wParam, lParam);
End;


в главном обработчике окна :


Function MainWindowProc(hWindow: THandle; uMsg, wParam, lParam: Integer): Integer; Stdcall; Export;
Var
I : Integer;
...
Case uMsg Of
...
WM_SHOWWINDOW:
Begin
I := GetDlgItem(hWindow, IDC_RICHEDIT); // Код RichEdit контрола
OldRichEditProc := Pointer(GetWindowLong(I, GWL_WNDPROC));
SetWindowLong(I, GWL_WNDPROC, LongInt(@NewRichEditProc));
Result := 0;
End;
...


Работает нормально, но смущает то, что код инициализации приходится писать в WM_SHOWWINDOW т.к. в WM_CREATE еще не удается получить HWND у IDC_RICHEDIT (Контрол не создается, а берется из ресурсного файла).

---

← →
Nick Denry ©   (2003-05-25 19:03) [1]

сабклассинг.......................

---

← →
User   (2003-05-25 19:06) [2]

2 Nik Denry.

Да это оно и есть :)

---

← →
Nick Denry ©   (2003-05-25 19:16) [3]

Если окно создавать не на wm_create, а после бегина, то ричьедит можно создавать после создания окна. Там HWND и получишь!

---

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

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



Память: 0.45 MB
Время: 0.01 c