Scollbars als MouseOver?

[MCXSC]

Hallo,

ich habe mir folgendes zusammengebastelt:

Wenn ich über ein Memofeld (z.B.) gehe, vergrößert sich die Fläche. Gehe ich wieder aus dem Feld hinaus (mit der Maus), so verkleinert es sich wieder.

Problem: Wenn ich nun auf die Scrollleisten gehe um zu scrollen, so verkleinert sich das Feld auch wieder...

Jemand eine Idee um das Problemchen zu lösen?

[turboPASCAL]

Wie hast du es denn angestellt das sich das Feld vergrössert ?
Das könnte zur Lösung deines Problemes beitragen und würde das Antworten vereinfachen.

[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;