Einzelnen Beitrag anzeigen

Benutzerbild von Delphi-Freak
Delphi-Freak

Registriert seit: 26. Sep 2004
Ort: Wien Nähe (Österreich)
321 Beiträge
 
Delphi 2006 Architect
 
#5

Re: Scroll in Memo/RichEdit - zwei Memos scrollmäßig verbind

  Alt 15. Nov 2004, 12:06
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?
100THX
Gerhard Pfister
*
»To him who loves us and has freed us from our sins by his blood [...] be glory and power for ever and ever! Amen.« (Revelation*1,*5?6)
  Mit Zitat antworten Zitat