Hilfe - Fenster mit Maus verschieben?

**axelf98**

Hallo!

Wie kann ich ein Form mit einem Panel,Shape,etc mit der Maus so verschieben, wie das die obere Leiste tut? Ich will nämlich ein Porgramm schreiben, dass nicht die Standardleiste benutzt, es soll aber trotzdem verschiebbar sein!

Kann mir jemand helfen?

**Matze**

Ins OnMouseDown:

markieren

Delphi-Quellcode:

			begin

  if (Button = mbLeft) then

  begin

    Application.ProcessMessages;

    ReleaseCapture;

    Perform(WM_SYSCommand, $F012, 0);

  end;

**axelf98**

Hey, danke, funktioniert!

Hilfe - Fenster mit Maus verschieben?

Hilfe - Fenster mit Maus verschieben?

Re: Hilfe - Fenster mit Maus verschieben?

Re: Hilfe - Fenster mit Maus verschieben?

Forumregeln

axelf98 Registriert seit: 27. Aug 2003 Ort: Ennepetal 440 Beiträge Delphi 2005 Personal	#1 Hilfe - Fenster mit Maus verschieben? 6. Sep 2003, 12:01 Hallo! Wie kann ich ein Form mit einem Panel,Shape,etc mit der Maus so verschieben, wie das die obere Leiste tut? Ich will nämlich ein Porgramm schreiben, dass nicht die Standardleiste benutzt, es soll aber trotzdem verschiebbar sein! Kann mir jemand helfen?
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: Hilfe - Fenster mit Maus verschieben? 6. Sep 2003, 12:03 Ins OnMouseDown: markieren Delphi-Quellcode: begin if (Button = mbLeft) then begin Application.ProcessMessages; ReleaseCapture; Perform(WM_SYSCommand, $F012, 0); end;
	Zitat

axelf98 Registriert seit: 27. Aug 2003 Ort: Ennepetal 440 Beiträge Delphi 2005 Personal	#3 Re: Hilfe - Fenster mit Maus verschieben? 6. Sep 2003, 12:07 Hey, danke, funktioniert!
	Zitat