procedure TForm1.FormCreate(Sender: TObject);
var
P : TPoint;
begin
GetCursorPos(P);
Label1.Caption:=IntToStr(P.X,P.Y));
end;
end.
co mam w tym kodzie zle??
0
0
GetCursorPos(P);
Label1.Caption:=IntToStr(P.X)+' '+IntToStr(P.Y);
a tak poza tym.. kod jest w OnCreate formy, więc bedzie uruchomiony tylko raz.. ale może o to ci chodzi.. nie wiem.. proponuję wrzucić go go form.OnMouseMove
0
Ja dodałem do Timera Intervala ustawilem na 1 i wszytsko jest oki.
0
hmm. i popatrz teraz na zużycie procesora..
interwał w timer = 1 znaczy tyle że twoja procedura będzie wykonana 1000 razy na sekunde, a twoja mysz transmituje dane do kompa 60 - 120 razy na sek. Nie ma sensu tak mały interwał.