Memo Scrollbar Events

[s.h.a.r.k]

Kann folgendes leider gerade nicht für TMemo testen, aber folgender Code funktioniert für eine TScrollBox. Vielleicht kannst es ja auch auf dein Memo anwenden.

Delphi-Quellcode:

TMyScrollBox = class(TScrollBox)
private
  procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;
  procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;
end;


procedure TMyScrollBox.WMHScroll(var Msg: TMessage);
begin
  // Hier dein Code

  inherited;
end;

procedure TMyScrollBox.WMVScroll(var Msg: TMessage);
begin
  // Hier dein Code

  inherited;
end;