Scollbars als MouseOver?

[MCXSC]

Delphi-Quellcode:

private
  FoldVSTWndProc: TWndMethod;

procedure TMainFrm.VSTwndproc(var msg: TMessage);
begin
  FoldVSTWndProc(Msg);
  case Msg.Msg of
    CM_MouseLeave: MemoXY.Width := 800;
    CM_MouseEnter: MemoXY.Width := 400;
  end;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
  FoldVstWndProc := MemoXY.WindowProc;
  MemoXY.WindowProc := VSTWndProc;
end;