Zwei Memofelder gleichzeitig scrollen

[Panthrax]

So geht's:

Delphi-Quellcode:

type
  TMyMemo = class(TMemo)
    public
    procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;

{ TMyMemo }

procedure TMyMemo.WMMouseWheel(var Message: TWMMouseWheel);
begin
  inherited;
  if Assigned(FPartner) and (Message.Result = 1) then
  begin
    Message.Result := 0;
    FPartner.Dispatch(Message);
  end;
end;

Die Nachrichten möglichst originär weiterreichen. Und die Methode MouseWheelHandler besser nicht verwenden. Die geerbte Implementierung wird nämlich auch von der Methode TControl.WMMouseWheel aufgerufen, der ursprünglichen Empfängerin der Nachricht. Also besser dort ansetzen, dann ist die Nachrichtenverarbeitung für beide Memos gleich.