Android move Label

[danten]

How do I move a Label over a form.
Thank you

[mkinzler]

Delphi-Quellcode:

Label.Position.X := <X>;
Label.Position.Y := <Y>;

[danten]

Thank you,
I meant onMouseDown, onMouseUp or onTap.

[Schokohase]

Delphi-Quellcode:

procedure TFormX.OnMouseUp( ... );
begin
  Label.Position.X := <newX>;
  Label.Position.Y := <newY>;
end;

[danten]

Thank you, I will answer myself :shock: 8-)

Delphi-Quellcode:

var
  FrmMain: TFrmMain;
  MouseDownPos: TPoint;
  DragEnabled : Boolean;

implementation

{$R *.fmx}

procedure TFrmMain.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  MouseDownPos.X := Round(X);
  MouseDownPos.Y := Round(Y);
  DragEnabled := True;
end;

procedure TFrmMain.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
  if DragEnabled then
     begin
        Label1.Position.X := Label1.Position.X + (X - MouseDownPos.X);
        Label1.Position.Y := Label1.Position.Y + (Y - MouseDownPos.Y);
     end;
end;

procedure TFrmMain.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if DragEnabled then
     begin
        Label1.Position.X := Label1.Position.X + (X - MouseDownPos.X);
        Label1.Position.Y := Label1.Position.Y + (Y - MouseDownPos.Y);
     end;
end;