Form ohne Rahmen bewegen

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

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  Perform( wm_SysCommand, $F012, 0 );
end;

[BadenPower]

Hallo zusammen,

am einfachsten ist es wohl WMNCHitTest zu überscheiben.
Sind dann ganz einfach nur 6 Zeilen.

Delphi-Quellcode:

type
  TMyForm = class(TForm)
    // ...
  private
    procedure WMNCHitTest(var AMessage: TWMNCHitTest); message WM_NCHITTEST;
  end;

und

Delphi-Quellcode:

procedure TMyForm.WMNCHitTest(var AMessage: TMessage);
begin
  inherited;
  AMessage.Result := HTCAPTION;
end;

Dann wird das Fenster genau so verschoben, als hättest Du eine Titelzeile.

.