Daily Archives: 08.11.2015

Перемещение мышью TControl (на примере кнопки)

Posted on 08.11.2015 by Stanislav_Panteleev

Пример из Д. Осипова Объявляем глобальные переменные

var
  Form2: TForm2;
  xOffset:single;
  yOffset:single;

var

Form2: TForm2;

xOffset:single;

yOffset:single;

Фиксируем начальную точку

procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
xoffset:=x;
yoffset:=y;
end;

procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

xoffset:=x;

yoffset:=y;

end;

Перемещаем

procedure TForm2.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin

if (ssLeft in Shift) then
   
with (sender as tcontrol)  do
        begin
        button1.Position.X:=button1.Position.x+x-xoffset;
        button1.Position.y:=button1.Position.Y+Y-yoffset;
        end;

end;

procedure TForm2.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Single);

begin

if (ssLeft in Shift) then

with (sender as tcontrol) do

begin

button1.Position.X:=button1.Position.x+x-xoffset;

button1.Position.y:=button1.Position.Y+Y-yoffset;

end;

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Daily Archives: 08.11.2015

Перемещение мышью TControl (на примере кнопки)

MY PROJECTS

Recent Posts

Categories