Fenster "unverschiebbar" machen

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

[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

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

[Christian Seehase]

Moin phXql,

fang doch WM_NCHITTEST ab, und für den Fall, das jemand in die Titelleiste klickt wird zurückgegeben, dass es im Clientbereich war

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
  public
    procedure WMNCHITTEST(var msg : TMessage); message WM_NCHITTEST;
  end;

implementation

procedure TForm1.WMNCHITTEST(var msg: TMessage);
begin
  inherited;
  if msg.Result = HTCAPTION then msg.Result := HTCLIENT;
end;

PS:
Über das Systemmenü des Formulares geht es dann allerdings immer noch

Seltsamer Weise funktioniert

  EnableMenuItem(GetSystemMenu(self.Handle,false),SC_MOVE,MF_BYCOMMAND or MF_GRAYED); nämlich nicht. Mit SC_CLOSE ginge es

[phXql]

wenn es über das systemmenü noch geht, isses nich so schön. aber trotzdem danke ich hab jetzt vorrübergehend mal das align auf alCustom gestellt, bis mir entweder einfällt, wie mans lösen könnte, oder mir einfällt, wieso das WM_MOVING-dings nich will...

[neolithos]

Erstmal muss ich mich Entschuldigen:

Weise bitte Result bei WM_MOVING eine 1 zu.


Zu der WM_NCHITTEST Variante:

Die gefällt mir nicht. Da dadurch auch der Rechtsklick nicht mehr das Popup-Fenster anzeigt.

[Christian Seehase]

Moin Neolithos,

Zitat von neolithos:

Die gefällt mir nicht. Da dadurch auch der Rechtsklick nicht mehr das Popup-Fenster anzeigt.

Meinst Du das Systemmenü?
Das funktioniert dann noch.

[neolithos]

Zitat von Christian Seehase:

Meinst Du das Systemmenü?
Das funktioniert dann noch.

Ja! Sicher! *verwirrt*
Du sagst doch, wenn die Titelleiste angeklickt wird, dass die Titelleiste Client-Area ist. Dadurch sollte doch das Systemmenu nicht mehr durch Rechtsklick auf die Titelleiste angezeigt werden.

Ein weiterer Nachteil ist, dass du nicht auf die Verschiebungen mittels Tastatur reagierst.

Ein Nachteil meiner Variante ist, dass dieses graue Rechteck, eventuell angezeigt werden könnte.

[Christian Seehase]

Moin Neolithos,

Zitat von neolithos:

Ein weiterer Nachteil ist, dass du nicht auf die Verschiebungen mittels Tastatur reagierst.

leider wahr (), auch wenn wohl > 99% aller Anwender nicht wissen, dass das geht

Wenn mir mal jemand verraten könnte, wo ich beim EnableMenuItem mit SC_MOVE den Denkfehler mache (zumal es mit SC_CLOSE einwandfrei funktioniert).

[phXql]

Zitat von Christian Seehase:

Moin Neolithos,

Zitat von neolithos:

Ein weiterer Nachteil ist, dass du nicht auf die Verschiebungen mittels Tastatur reagierst.

leider wahr (), auch wenn wohl > 99% aller Anwender nicht wissen, dass das geht

Wenn mir mal jemand verraten könnte, wo ich beim EnableMenuItem mit SC_MOVE den Denkfehler mache (zumal es mit SC_CLOSE einwandfrei funktioniert).

wenn ich bei delphi das align auf alCustom stelle, kann die form nich verschoben werden, und im systemmenü sind alle einträge ausgegraut, BIS auf den Move-eintrag. kann der vll. gar nich ausgegraut werden?

OT: wie kann man denn nun ein fenster mit der tastatur verschieben?