Komme nicht in PtInRect rein wenn die Maus sich über den Button befindet.
Nur beim Klick wird es ausgelößt.
Woran kann das liegen ?
Delphi-Quellcode:
GetCursorPos(CurPos);
ScreenToClient(WinHandle, CurPos);
if PtInRect(rc, CurPos) then
begin
if IsLButtonDown then
if WinHandle = GetFocus then
if (GetCursor = LoadCursor(0, IDC_ARROW)) and
(StateMax > 1) then
UseState := 2
else
if StateMax > 4 then
UseState := 5;
end;
gruss Emil