Habe es so gemacht:
Delphi-Quellcode:
procedure FormCreate(Sender: TObject);
procedure redtWndProc(var Message: TMessage);
procedure TFormxx.FormCreate(Sender: TObject);
begin
FOldMemoProc := redt1.WindowProc;
redt1.WindowProc := redtWndProc;
end;
procedure TFormxx.redtWndProc(var Message: TMessage);
begin
if ((Message.Msg = WM_VSCROLL)or (Message.Msg = WM_HSCROLL)) then
begin
ShowMessage('scroll');
end
else
FOldMemoProc(Message);
end;
Das funktioniert allerdings nur, wenn ich mit der Maus die Scrollbar auswähle. Scrollen mit dem Mausrad funktioniert nicht. Benötige ich da noch weitere Nachrichten? oder ?