Získanie a zmena pozície kurzora
Získanie a zmena pozície kurzora.
procedure TForm1.Button1Click(Sender: TObject); var pt: TPoint; begin GetCursorPos(pt);//ziskanie pozicie kurzora SetCursorPos(pt.x, pt.y);//zmena pozicie kurzora end;
Získanie a zmena pozície kurzora.
procedure TForm1.Button1Click(Sender: TObject); var pt: TPoint; begin GetCursorPos(pt);//ziskanie pozicie kurzora SetCursorPos(pt.x, pt.y);//zmena pozicie kurzora end;