Wollte mal Fragen wie ich ein OnMouseOver bei einer Checkbox benutzen kann bzw.: wie ich es hinnbekomme das, wenn man mit der Mouse über einer Checkbox bin, dieses Ereigniss abfangen kann (um z.B. in einem Memo einen Text anzuzeigen)? Weiß da wer Rat?
//Edit:
Habe das hier im EDH gefuden, was genau is ein Control bzw wie kann ich die Funktion für mich nutzen?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| Diese Funktion gibt True zurück, wenn sich die Maus über dem angegebenen Control befindet.
function IsMouseOver (Control: TControl): boolean;
var
p: TPoint;
begin
if GetCursorPos(p) then
begin
p := Control.ScreenToClient(p);
Result := (p.x >= 0) and (p.x <= Control.Width) and
(p.y >= 0) and (p.y <= Control.Height);
end
else
Result := false;
end; |
