Memo's synchron scrollen

[Tpercon]

Ich habe 2 Memo's mit der gleichen Anzahl Lines. Wenn ich im Memo1 die vertikale Scrollbar benutze soll automatisch synchron dazu, das Memo2 vertikal gescrollt werden.

Wie kann man sowas verwirklichen?

Das Problem ist vor allem, dass man mitbekommen muß, wann gescrollt wird und dafür gibt es so direkt kein Ereignis.

[Phoenix]

Scrollen geht mit Memo.Scrollby(DeltyX, DeltaY);

Das Scrollen selber passiert im Parent TWinControl und zwar anhand der Messages:

Code:

procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;

Ich denke, da kannst Du Dich reinhängen.

[neolithos]

Fange die WM_VSCROLL und WM_HSCROLL nachrichten hab und schick sie mittels Perfrom an das andere Memo-Feld weiter.

Schaul auch mal unter:
http://www.delphipraxis.net/topic832...indowproc.html

wenn du nicht gerade etwas ableiten möchtest... :wink:

[Tpercon]

@ neolithos: Abgefangen bekommt man das damit sehr schön. Nur das Mausrad wird ignoriert?!

Außerde weiß ich nciht so ganz, wie ich die Parameter (eigentlich nur der 2.) vom Perform setzen muß?

[neolithos]

da gibt es noch eine Nachricht lass mich raten WM_MOUSEWHEEL oder so!

Delphi-Quellcode:

with Message do
  case Msg of
       WM_VSCROLL, WM_HSCROLL:
         Memo.Perform(Msg, WParam, LParam);
  end;

eigentlich sollte das das Maus Rad mit einschließen...

[Tpercon]

So funktioniert es halt, nur das Mausrad gibt keine Message.

[neolithos]

Delphi-Quellcode:

with Message do 
  case Msg of 
       WM_VSCROLL, WM_HSCROLL, WM_MOUSEWHEEL: 
         Memo.Perform(Msg, WParam, LParam); 
  end;

[Tpercon]

Super :hello:

[neolithos]

Kennst du zufällig das MS Tool Spy XX

[Tpercon]

Nein, warum?