Transparentes Label zur Laufzeit verschieben

[smart]

Damit kannst Du Labels verschieben.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    fOffsetX, fOffsetY : Integer;



procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  lPt : TPoint;
begin
  lPt := TLabel(Sender).ScreenToClient(Mouse.CursorPos);
  fOffsetX := lPt.X;
  fOffsetY := lPt.Y;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If ( ssLeft In Shift ) Then
  Begin
    TLabel(Sender).Left := TLabel(Sender).Left + X - fOffsetX;
    TLabel(Sender).Top  := TLabel(Sender).Top  + Y - fOffsetY;
  End;
end;