Scroll in Memo/RichEdit - zwei Memos scrollmäßig verbinden

[Delphi-Freak]

Hätte wieder mal eine Frage:
Gibt es irgendeine Möglichkeit, in einem Memo, oder besser einem RichEdit die Position des Scrollens herauszufinden. Genaugenommen möchte ich zwei RichEdits scrollmäßig verbinden, nur in einem gibts Scrollbars, sobald dort gescrollt wird, läuft das andere RichEdit mit.
Vielen Dank :thumb:

Gerhard :-D

[Mirilin]

:hi:

Vielleicht findest Du in der gleichzeitig scrollen was :)

mfg Tobias

[Shaman]

Hoi

Die RichEdits sollen einfach die Messages WM_HSCROLL und WM_VSCROLL an das jeweils andere weiterleiten, dann müsste das gehen.

Gruss
Shaman

[Delphi-Freak]

Vielen Dank mal!!! :thumb:
Werde mir das mal anschauen :-D

Grüße, ich

[Delphi-Freak]

Das mit den Messages habe ich noch nicht ganz verstanden, auch bei anderen Beiträgen habe ich das gesehen. Also mein momentaner Code:
EditChr ist das RichEdit, in dem der User scrollt, EditHex, das RichEdit, das via Script mitscrollen soll (wird 'n HexViewer):

Delphi-Quellcode:

...
public
   { Public-Deklarationen }
   procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
end;
...
procedure TForm1.WMHScroll(var Message: TWMHScroll);
begin
   with Message do begin
      case Msg of
         WM_VSCROLL: EditHex.Perform(Msg, WParam(Msg), LParam(Msg));
      end;
   end;
end;

Muss ich da dem EditHex oder dem EditChr noch irgendwas wie WindowProc oder so zuweisen? :roll:
100THX :!: :thumb:

[Delphi-Freak]

Also ich habs jetzt doch geschafft:
Scrollen über die Scrollbars und das Mausrad funktioniert, Cursor-Tasten aber nicht. Ist aber sowieso egal, weil ich mich dazu entschieden habe, doch nur ein Richedit zu verwenden. - Trotzdem Danke für eure Tipps! :thumb: