Beiträge von Sebastiaan

  • Scrolling event

    Alright, I fixed the problem

    this is what I did

    Code
    TVerticalScrollEvent = procedure(Sender: TObject) of object;TWPRichTextDezta = class(TWPRichText)  private     FOnVerticalScrollEvent: TNotifyEvent;     procedure OnVerticalScoll(var msg: TMessage); message WM_VSCROLL;  published      property OnVerticalScrollEvent: TNotifyEvent read FOnVerticalScrollEvent write FOnVerticalScrollEvent;end;implementationprocedure TWPRichTextDezta.OnVerticalScoll(var msg: TMessage);begin  if Assigned(FOnVerticalScrollEvent) then    FOnVerticalScrollEvent(Self);  inherited;end;

    Now I can hook the event to a procedure dynamicly using

    Code
    Editor.OnVerticalScrollEvent := ScrollBarChange;


procedure TMainForm.ScrollBarChange(Sender: TObject);
begin
  // my code
end;

  • Scrolling event

    Zitat von wpsupport

    Hi,

    ok, now also I understand - you use the external scrollbar to just get the events. Should work but I would rather use the WMSCroll messages.

    Julian

    Exactly what message do I have to intercept?

    I tried WM_HSCROLL, WM_VSCROLL but they do not work.

    Obviously it is some internal message, but how to find it?