Código
var
Pt : TPoint ;
begin
Pt.X := X ;
Pt.Y := Y ;
Pt := TControl(Sender).ClientToParent(Pt, Self) ;
grHorizontal.UpdatePosition(Pt.X - grHorizontal.Left, Y) ;
grVertical.UpdatePosition(X, Pt.Y - grVertical.Top) ;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009