6 lines
173 B
Text
6 lines
173 B
Text
|
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||
|
|
Y: Integer);
|
||
|
|
begin
|
||
|
|
lblMousePosition.Caption := ('X:' + IntToStr(X) + ', Y:' + IntToStr(Y));
|
||
|
|
end;
|