AW: Form ohne Rahmen bewegen
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. |
AW: Form ohne Rahmen bewegen
Hast du schon versucht das Verschieben Windows zu überlassen?
OnMouseDown Ereignis einfach auch im TImage zuweisen.
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer); begin ReleaseCapture; Perform( wm_SysCommand, $F012, 0 ); end; |
AW: Form ohne Rahmen bewegen
Hallo zusammen,
am einfachsten ist es wohl WMNCHitTest zu überscheiben. Sind dann ganz einfach nur 6 Zeilen.
Delphi-Quellcode:
und
type
TMyForm = class(TForm) // ... private procedure WMNCHitTest(var AMessage: TWMNCHitTest); message WM_NCHITTEST; end;
Delphi-Quellcode:
Dann wird das Fenster genau so verschoben, als hättest Du eine Titelzeile.
procedure TMyForm.WMNCHitTest(var AMessage: TMessage);
begin inherited; AMessage.Result := HTCAPTION; end; . |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz