MouseInClient über einer Scrollbar, geht das überhaupt?

[dust258]

Hallo Leute,
ich schreibe im Moment an einer Vorschau für gespeicherte Dokumente. Ich zeige alle Dokumente in einem Grid an und bei einem Klick auf das Dokument wird ein Frame mit einem Vorschautext angezeigt.

http://666kb.com/i/bhi8grz3qy3hq401n.jpg

Wenn man nun die Maus bewegt soll das Fenster (mit einer kleinen Verzögerung) verschwinden. Das habe ich über einen Timer gelöst.
Das Fenster darf allerdings nicht verschwinden, wenn ich die Maus darauf bewege. Das habe ich mit einer Property/Funktion mit folgendem Inhalt gelöst.

Delphi-Quellcode:

  
fBMouseInClient := false;
  for i := ComponentCount-1 downto 0 do
  begin
    if (Components[i].ClassType = TAdvPanel) and (Components[i] as TAdvPanel).MouseInClient then
      fBMouseInClient := true
    else
    if (Components[i].ClassType = TJvNavPanelHeader) and (Components[i] as TJvNavPanelHeader).MouseInClient then
      fBMouseInClient := true
    else
    if (Components[i].ClassType = TJvRichEdit) and (Components[i] as TJvRichEdit).MouseInClient then
      fBMouseInClient := true;
  end;
  Result := fBMouseInClient;

Das funktioniert auch so wie ich mir das vorgestellt habe, allerdings nur wenn im RichEdit keine Scrollbars aktiv sind. Denn wenn die Maus sich auf einer Scrollbar im Richedit befindet liefert selbiges bei "MouseInClient" ein "false" zurück.

Das Onmousemove des Richedit liefert auch Nichts zurück, während man sich über der Scrollbar befindet. Hat Jemand von euch vielleicht eine Idee wie ich das lösen könnte?

PS: Das ist übrigens ein JVRichedit, also aus den Jedi-Komponenten.

[dust258]

Ähhh, ja...
Da sitze ich stundenlang davor, und in dem Moment in dem ich den Thread abschicke fällt mir eine Lösung ein (mal wieder...)

Ich habe einfach die Mausposition des Clienten bestimmt und schon geht es:

Delphi-Quellcode:

  fBMouseInClient := false;
  for i := ComponentCount-1 downto 0 do
  begin
    if (Components[i].ClassType = TAdvPanel) and (Components[i] as TAdvPanel).MouseInClient then
      fBMouseInClient := true
    else
    if (Components[i].ClassType = TJvNavPanelHeader) and (Components[i] as TJvNavPanelHeader).MouseInClient then
      fBMouseInClient := true
    else
    if (Components[i].ClassType = TJvRichEdit) and (Components[i] as TJvRichEdit).MouseInClient then
      fBMouseInClient := true
    else
    if  (Components[i].ClassType = TJvRichEdit) and
        (Mouse.CursorPos.X>(Components[i] as TJvRichEdit).ClientOrigin.x) and
        (Mouse.CursorPos.X<((Components[i] as TJvRichEdit).ClientOrigin.x + (Components[i] as TJvRichEdit).Width)) and
        (Mouse.CursorPos.Y >(Components[i] as TJvRichEdit).ClientOrigin.Y) and
        (Mouse.CursorPos.Y<((Components[i] as TJvRichEdit).ClientOrigin.Y + (Components[i] as TJvRichEdit).Height)) then
      fBMouseInClient := true;
  end;
  Result := fBMouseInClient;

Danke und sorry fürs Spammen :roll: