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?

[neolithos]

Mit diesem Programm kann man die Nachrichten die von bzw. an Windows-Fenster geschickt werden, ausspionieren. Sehr Hilfreich bei sowas was du vorhast.

Gibt es Std.-mäßig beim MS Visual Studio (SpyXX.exe) mit.

Ich weiß aber nicht ob man es irgentwo kostenfrei laden.

Es gibt aber genügend alternativen. Sogar von Borland {$Delphi}\Bin\WS32.exe (gefällt mir aber nicht so)

[Tpercon]

Das WinSight kenne ich natürlich. Daran hatte ich garnicht gedacht.

[Shaman]

Hallo zusammen

Delphi-Quellcode:

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

Hier wird nicht reagiert, wenn man mit den Cursortasten scrollt. Weiss jemand, wie diese Message heisst?

Gruss
Shaman