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.