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

...

**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...

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

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

Re: Wrum verschiebt sich mein Form nicht?

Re: Wrum verschiebt sich mein Form nicht?

Forumregeln

FriFra Registriert seit: 19. Apr 2003 1.291 Beiträge Delphi 2005 Professional	#3 Re: Wrum verschiebt sich mein Form nicht? 3. Feb 2004, 18:08 Danke Mit "Self" hat es funktioniert... Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.
	Zitat