![]() |
MouseInClient über einer Scrollbar, geht das überhaupt?
Liste der Anhänge anzeigen (Anzahl: 1)
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. ![]() 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:
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.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 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. |
Re: MouseInClient über einer Scrollbar, geht das überhaupt?
Ä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:
Danke und sorry fürs Spammen :roll:
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz