Witam,
Chcę zachować początkową wartość pozycji myszki, niezaleznie od późniejszego jej ruchu, np rozpoczynam ruch od t.X = 120 I aby ta poczatkowa wartość nie ulegała zmianie. Prosił bym opodpowiedż.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
T:TPointF;
pocz:integer;
begin
t := screen.MousePos ;
pocz := t.X; // wartosc odczytana jednorazowo odczytujac polozenie poczatkowe kursora
if pocz < round(t.X) then
begin
{wykonaj kod}
end else
if pocz > round(t.X) then
Begin
{wykonaj kod}
End;
end;