Nur horizontal verschiebbar machen

[CalganX]

Hi,
mit Hilfe von

Delphi-Quellcode:

  {Label mit Programm verschiebbar machen}
  ReleaseCapture;
  lbFileOpen.Perform(WM_SYSCOMMAND, $F012, 0);

mache ich einen TStaticText mit der Maus verschiebbar.
Gibt es eine Möglichkeit das nur für horizontale Verschiebungen zulässig zu machen?

Ich habe versucht das mit Hilfe von Koordinatenabfragen/-änderungen in OnMouseMove zu machen, aber das Ereignis scheint aufgerufen zu werden. :?

Chris

[shmia]

Zitat:

Zitat von Chakotay1308

Hi,
mit Hilfe von

Delphi-Quellcode:

  {Label mit Programm verschiebbar machen}
  ReleaseCapture;
  lbFileOpen.Perform(WM_SYSCOMMAND, $F012, 0);

mache ich einen TStaticText mit der Maus verschiebbar.
Gibt es eine Möglichkeit das nur für horizontale Verschiebungen zulässig zu machen?

Manchmal denkt man nicht an die einfachsten Dinge:

Delphi-Quellcode:

  y := lbFileOpen.Top;
lbFileOpen.Perform(WM_SYSCOMMAND, $F012, 0);
lbFileOpen.Top := y;

Du verwendest ja eine undokumentierte WM_SYSCOMMAND.
Siehe auch die Konstante SC_MOVE aus Windows.pas mit dem Wert $F010.
Ich würde mal mit diesem Wert experimentieren (die niedrigsten 4 Bits ändern); könnte sein,
dass dein gewünschter Effekt auftritt.

[CalganX]

Hi,
danke. :)
Der Tipp mit der Variable ist schonmal gut. ;) Zwar kann man jetzt immer noch das Label außerhalb des sichtbaren Bereichs rauf- und runterschieben, aber es wird ja auf den Standardwert zurückgesetzt. :)

Danke!
Chris

[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;