Nur horizontal verschiebbar machen

[shmia]

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.