Form soll nicht verschiebbar sein!

[richard_boderich]

Hallo Delphianer!

Ich hätte gern ein Form, das nicht verschiebbar ist. Also nicht auf Perfom syscommand, verschieben über die Programmleiste usw. reagiert. Hat jemand dazu eine Idee?

[toms]

Edit: Dieser Code macht die Form verschiebbar aber nicht vergrößerbar. :arrow: Richtige Antwort unten.

Delphi-Quellcode:

private
   procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
end;

Delphi-Quellcode:

implementation

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
  inherited;
  with Msg.MinMaxInfo^ do 
  begin
    ptMinTrackSize.X := Self.Width;
    ptMaxTrackSize.X := Self.Width;
    ptMinTrackSize.Y := Self.Height;
    ptMaxTrackSize.Y := Self.Height;
  end;
end;

[richard_boderich]

Au, das ging schnell! :)

Dank dir toms, werd es gleich mal testen.

[toms]

Sorry, das macht die Form nicht vergrößerbar.

So geht's:

Delphi-Quellcode:

  private
    procedure WMWindowPosChanging(var msg: TWMWindowPosChanging); message  WM_WINDOWPOSCHANGING;
  end;


procedure TForm1.WMWindowPosChanging(var msg: TWMWindowPosChanging);
begin
  inherited;
  msg.WindowPos^.flags := msg.WindowPos^.flags or SWP_NOMOVE;
end;

[richard_boderich]

@toms

mmhhh..hat bei mir leider keinen Effekt. Formsyle ist "FSDialog" Systemicons sind alle deaktiviert.

[toms]

Habe meinen 2. Beitrag editiert :-D

[richard_boderich]

Also das ist schon besser. Das Form lässt sich jetzt nicht mehr verschieben, hat jedoch einen sehr unschönen Banding Effekt.

[toms]

Zitat:

Zitat von richard_boderich

Also das ist schon besser. Das Form lässt sich jetzt nicht mehr verschieben, hat jedoch einen sehr unschönen Banding Effekt.

Was meinst du damit?

[richard_boderich]

Habe mal ein Screenshot angehängt. Die Position des Dialogfensters ändert sich jetzt zwar nicht mehr, jedoch kann ich seinen Rahmen verschieben, solange
ich die linke Maustaste gedrückt halte.

[toms]

Zitat:

Zitat von richard_boderich

Habe mal ein Screenshot angehängt. Die Position des Dialogfensters ändert sich jetzt zwar nicht mehr, jedoch kann ich seinen Rahmen verschieben, solange
ich die linke Maustaste gedrückt halte.

Dieser Rahmen erscheint jedoch nur dann, wenn die Windows Einstellung "Inhalt beim Verschieben eines Fenster anzeigen" deaktiviert ist.