Nur horizontal verschiebbar machen

[Nogge]

Hallo Chakotay1308,
Diese Variante ist meiner Meinung nach besser, da es unter anderem verständlicher ist, als die 2 Zeilen.

Delphi-Quellcode:

var
  Form1: TForm1;
  { -- Moving -- }
           Moving : Boolean;
  Pressed_Y_Koord : Integer;

implementation

{$R *.dfm}

procedure TForm1.StaticText1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Pressed_Y_Koord:=Y;
  Moving:=true;
end;

procedure TForm1.StaticText1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Moving:=false;
end;

procedure TForm1.StaticText1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if Moving then
  begin
    StaticText1.Top:=StaticText1.Top+(Y-Pressed_Y_Koord);
  end;
end;