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.