Chciałbym dla jednego okna (albo całej aplikacji) zmienić sposób rysowania kursora myszki
Jak lewy przycisk myszy jest wciśnięty to np. crHourGlass
Jak lewy przycisk NIE jest wciśnięty to nie rysuje kursora myszy
I taki eksperyment z użyciem TIMERA
procedure TForm13.Timer1Timer(Sender: TObject);
begin
if GetAsyncKeyState(VK_LBUTTON) = -32768 then // -32768 = 0xFFFFFFFFFFFF8000
begin
Cursor := crHourGlass;
end
else
begin
Cursor := crNone
end;
end;
crHourGlass sie pokazuje tylko na chwile jak puszczam kursor myszki a nie jest rysowany caly czas jak wciskam LPM
Dlaczego taka dziwna potrzeba:
- interfejs uzytkownika jest dotykowy (ale nie multitouch tylko emulacja myszy)
- kursor myszy zasłania to co jest na ekranie , ale jest potrzebny jak dotykamy ekranu i chcemy cos zmienić w aplikacji