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:

markieren

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...

**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!

markieren

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**

markieren

Delphi-Quellcode:

			with Message do 

  case Msg of 

       WM_VSCROLL, WM_HSCROLL, WM_MOUSEWHEEL: 

         Memo.Perform(Msg, WParam, LParam); 

  end;

**Tpercon**

Super

**neolithos**

Kennst du zufällig das MS Tool Spy XX

**Tpercon**

Nein, warum?

Memo's synchron scrollen

Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Re: Memo's synchron scrollen

Forumregeln

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#1 Memo's synchron scrollen 27. Aug 2003, 10:18 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.
	Zitat

neolithos Registriert seit: 31. Jul 2003 Ort: Dresden 1.386 Beiträge Delphi 7 Architect	#3 Re: Memo's synchron scrollen 27. Aug 2003, 10:46 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... - ciao neo - Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#4 Re: Memo's synchron scrollen 27. Aug 2003, 11:06 @ 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ß?
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#6 Re: Memo's synchron scrollen 27. Aug 2003, 11:40 So funktioniert es halt, nur das Mausrad gibt keine Message.
	Zitat

neolithos Registriert seit: 31. Jul 2003 Ort: Dresden 1.386 Beiträge Delphi 7 Architect	#7 Re: Memo's synchron scrollen 27. Aug 2003, 12:17 markieren Delphi-Quellcode: with Message do case Msg of WM_VSCROLL, WM_HSCROLL, WM_MOUSEWHEEL: Memo.Perform(Msg, WParam, LParam); end; - ciao neo - Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#8 Re: Memo's synchron scrollen 27. Aug 2003, 12:22 Super
	Zitat

neolithos Registriert seit: 31. Jul 2003 Ort: Dresden 1.386 Beiträge Delphi 7 Architect	#9 Re: Memo's synchron scrollen 27. Aug 2003, 12:23 Kennst du zufällig das MS Tool Spy XX - ciao neo - Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#10 Re: Memo's synchron scrollen 27. Aug 2003, 12:26 Nein, warum?
	Zitat