|
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
s:tpoint;
begin
s := Mouse.CursorPos;
Label1.caption := ('X:'+INTTOSTR(S.X)+' Y:'+INTTOSTR(S.Y));
end;
Haber si te sirve
Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
|