Komponente vertikal verschieben

[Delphi Star]

Guten Morgen,
wie kann ich eine Komponente mit der Maus nur vertikal und nur in einem bestimmten Bereich verschieben?

[Delphi Star]

Ich habe es selbst geschafft:

Delphi-Quellcode:

var mouseposi: integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bitbtn1.top:=Mouse.CursorPos.y-top-(height-clientheight)-mouseposi;
end;

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mouseposi:=Mouse.CursorPos.y-(height-clientheight)-top-bitbtn1.Top;
timer1.Enabled:=true;
end;

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

[edit=Admin] Mfg, Daniel[/edit]

[bitsetter]

Hi,

mit dem Timer ist ja nicht gerade optimal, würde es nicht auch so gehen?

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TBitBtn then
    TBitBtn(Sender).Tag := Y;
end;

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  NewPos: integer;
const
  MinTop = 10;
  MaxTop = 300;
begin
  if Sender is TBitBtn then
    if ssLeft in Shift then
    begin
      NewPos:= TBitBtn(Sender).Top + Y - TBitBtn(Sender).Tag;
      if (NewPos > MinTop) and (NewPos < MaxTop) then
        TBitBtn(Sender).Top:= TBitBtn(Sender).Top + Y - TBitBtn(Sender).Tag;
    end;
end;

[Delphi Star]

Cool, Danke!

[Guido Eisenbeis]

Verschiebt man den BitBtn schnell, kann er schonmal an einer Stelle hängen bleiben. Das wird im folgenden abgefangen.

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TBitBtn then
    TBitBtn(Sender).Tag := Y;
end;

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  NewPos: integer;
const
  MinTop = 10;
  MaxTop = 300;
begin
  if Sender is TBitBtn then
    if ssLeft in Shift then
    begin
      NewPos:= TBitBtn(Sender).Top + Y - TBitBtn(Sender).Tag;

      if (NewPos < MinTop) then
        TBitBtn(Sender).Top := MinTop
      else if (NewPos > MaxTop) then
        TBitBtn(Sender).Top := MaxTop
      else
        TBitBtn(Sender).Top := NewPos;
    end;
end;

Gruß,
Guido.

[Delphi Star]