Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
23. Apr 2007
so hab ichs gemeint:
procedure WMMoving(var AMsg: TMessage); message WM_MOVING;
procedure WMNCHitTest(var AMsg: TMessage); message WM_NCHITTEST;
procedure TForm1.WMMoving(var AMsg: TMessage);
var
lRect: PRect;
begin
lRect := PRect(AMsg.lParam);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
23. Apr 2007
:shock: Das wäre kein Verbeiten sondern ein ständiges zurücksetzen.
Wenn dann sollte man wm_moving/wm_move abfangen und gleich mit WM_NCHITTEST verbieten das die Form überhaupt per Maus verschoben wird. Wenn du generell das verschieben unterbinden willst (auch per Menü + Pfeiltasten) musst du wm_moving und wm_move abfangen. Wenn du nur das verschieben mit der Maus abfangen willst genügt die...