Приходит программер домой, к нему подбегает кошка и начинает усиленно
ластиться, лизать руку, мурчать и
т.д.Жена, увидев это, спрашивает:
- Что это вдруг случилось с кошкой? Чего она руку-то лижет?
- Как чего? Мышкой пахнет...
//Выключение курсораprocedure TForm1.Button1Click(Sender: TObject);
var
CState: Integer;
begin
CState := ShowCursor(True);
while Cstate >= 0 do
Cstate := ShowCursor(False);
end;
//Включение курсораprocedure TForm1.Button2Click(Sender: TObject);
var
Cstate: Integer;
begin
Cstate := ShowCursor(True);
while CState < 0 do
CState := ShowCursor(True);
end;
Статья Как отключить курсор мыши раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal.
