salamlar mən cvb300 bu gün sizlərə delphidə crazy mouse yaradmağı gösdərəcəm sadəcə olaraq forma 1timer əlavə edin ve bu kodu yerləşdirin
P.S:code bölməsinnən Begini silin və endi silin əks halda işləməz
Kod:
procedure TForm1.Timer1Timer(Sender: TObject);
var
NewX,NewY:Integer;
Pnt:TPoint;
begin
NewX:=Random(2);
NewY:=Random(2);
if NewX = 0 then NewX:=-10 else NewX:=10;
if NewY = 0 then NewY:=-10 else NewY:=10;
GetCursorPos(Pnt);
SetCursorPos(Pnt.x + NewX,Pnt.y + NewY);
end;