Fenster "unverschiebbar" machen

[phXql]

Zitat von StefanDP:

Zitat von Tubos:

Zitat:

Nimm WM_MOVING und gib via Message.Result := 0 zurück.

genau, WM_MOVING ist wahrscheinlich die beste Idee. Es wird VOR dem Verschieben ausgelöst.

Und mit der "Antowrt" sagst, du: NICHT verschieben

1stens): wie oft durchlaufe ich die funktion, wenn ich das fenster verschiebe? und dann jedes mal schauen, ob die form im Dock-Modus is (manchmal darf man sie verschieben)? das frisst rechenzeit, oder?

2tens): bei mir will die funktion nich

Delphi-Quellcode:

    procedure WMMoving(var msg : TMessage); message WM_MOVING;

procedure TFormMain.WMMoving(var msg : TMessage);
begin
  msg.Result := 0;
end;

geht leider nich. form kann man trotzdem noch verschieben. :/