Warum verschiebt sich mein Form nicht? [gelöst]

**FriFra**

Ich verwende folgenden Code um mein Formular zu verschieben. Das ganze klappt bei einem Anderen Programm hervorragend, aber im aktuellen Projekt passiert nichts!

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TInfos.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

const

  sc_DragMove = $F012;

begin

  if Button = mbleft then

  begin

    ReleaseCapture;

    Infos.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);

  end;

end;

Die Zeile "Infos.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);" wird aber ausgeführt... aber ohne Wirkung

...

Warum verschiebt sich mein Form nicht? [gelöst]

Warum verschiebt sich mein Form nicht? [gelöst]

Forumregeln