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!

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 :gruebel: ...

[Christian Seehase]

Moin FriFra,

also bei mir funktioniert das problemlos.
Ich hatte allerdings schon den Fall, dass Perform nicht das gewünschte tat, wenn ich hingegen SendMessage verwendet habe hat's funktioniert.
Übrigens würde ich lieber self verwenden, statt des Objektbezeichners.

[FriFra]

Danke ;) Mit "Self" hat es funktioniert...