Form ohne Rahmen bewegen

**mm1256**

Hallo Detlef,

danke für den Versuch! Wie schon geschrieben, genau nach diesem Prinzip habe ich es ja probiert...das flackert

**OrNEC**

Ich habe da eine gute Lösung, muss danach suchen... dauert eine Weile.

**DeddyH**

DoubleBuffered ist aktiv?

**mm1256**

Hallo,

DoubleBuffered ist nicht aktiviert. Jetzt hab ich das mal mit einer neu erstellten Form probiert, die flackert nicht, oder zumindest fast nicht. Sieht auf jeden Fall besser aus. Da muss also noch irgend was anderes im Busch sein. Muss ich suchen

Vielen Dank jedenfalls für die Bemühungen!

**himitsu**

Welche Windowsversion?
Seit Vista und dem Desktop-Window-Manager sollte sich die Form nicht mehr ständig neu zeichnen, wenn sie blos verschoben wird.

Was ist auf der Form drauf, bzw. was flackert da eigentlich?

**mm1256**

Hallo,

jetzt habe ich die Form einfach mal neu erstellt, und siehe da, kein Flackern mehr. Implementierung exakt so wie von Detlef vorgeschlagen.

Ich hatte es vorher so ähnlich, nur mit XY-Koordinaten anstelle des TPoint. Doch das dürfte ja eigentlich keinen Unterschied machen. Das Formular war schon etwas älter und ursprünglich mit D7 (oder vielleicht sogar noch mit D5) erzeugt. Genau weiß ich das nicht mehr. Vielleicht hat sich ja was eingeschlichen bei den Konvertierungen. Wird wohl ein Rätsel bleiben.

Jedenfalls tut es jetzt und darum nochmals vielen Dank an alle.

**Daniela.S**

Hast du schon versucht das Verschieben Windows zu überlassen?
OnMouseDown Ereignis einfach auch im TImage zuweisen.

markieren

Delphi-Quellcode:

			procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,

  Y: Integer);

begin

  ReleaseCapture;

  Perform( wm_SysCommand, $F012, 0 );

end;

Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

AW: Form ohne Rahmen bewegen

Forumregeln

mm1256 Registriert seit: 10. Feb 2014 Ort: Wackersdorf, Bayern 642 Beiträge Delphi 10.1 Berlin Professional	#1 AW: Form ohne Rahmen bewegen 28. Nov 2014, 18:52 Hallo Detlef, danke für den Versuch! Wie schon geschrieben, genau nach diesem Prinzip habe ich es ja probiert...das flackert Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen
	Zitat

OrNEC Registriert seit: 6. Nov 2009 493 Beiträge FreePascal / Lazarus	#2 AW: Form ohne Rahmen bewegen 28. Nov 2014, 18:55 Ich habe da eine gute Lösung, muss danach suchen... dauert eine Weile.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.656 Beiträge Delphi 12 Athens	#3 AW: Form ohne Rahmen bewegen 28. Nov 2014, 20:02 DoubleBuffered ist aktiv? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.340 Beiträge Delphi 12 Athens	#5 AW: Form ohne Rahmen bewegen 28. Nov 2014, 21:51 Welche Windowsversion? Seit Vista und dem Desktop-Window-Manager sollte sich die Form nicht mehr ständig neu zeichnen, wenn sie blos verschoben wird. Was ist auf der Form drauf, bzw. was flackert da eigentlich? Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

Daniela.S Registriert seit: 1. Mär 2008 Ort: Niederösterreich 226 Beiträge Delphi XE4 Enterprise	#7 AW: Form ohne Rahmen bewegen 29. Nov 2014, 09:03 Hast du schon versucht das Verschieben Windows zu überlassen? OnMouseDown Ereignis einfach auch im TImage zuweisen. markieren Delphi-Quellcode: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform( wm_SysCommand, $F012, 0 ); end;
	Zitat