Form soll nicht verschiebbar sein!

[omata]

Delphi-Quellcode:

Form.BorderStyle := bsNone;

[richard_boderich]

@omata

Stimmt das wäre eine Möglichkeit, sieht aber auch nicht so toll aus.Kann man die SC Message nicht direkt abfangen?

[omata]

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
:
:
procedure TForm.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  DefaultHandler(Msg);
  if Msg.Result = HTCAPTION then
    Msg.Result:=0;
end;

procedure TForm.FormCreate(Sender: TObject);
const
  MnuCommand = SC_MOVE;
var
  SysMenu : HMenu;
begin
  SysMenu := GetSystemMenu(Handle, FALSE) ;
  DeleteMenu(SysMenu, MnuCommand, MF_BYCOMMAND);
end;

und Form.BorderStyle := bsSingle;

[richard_boderich]

@omata

Funktioniert perfekt! :)
Was ich nur nicht ganz verstehe ist, was das Menü damit zu tun hat. Konkret geht es mir um diese beiden Codezeilen. Wäre nett wenn du das noch etwas näher erläutern könntest.

Delphi-Quellcode:

const 
  MnuCommand = SC_MOVE; 
var 
  SysMenu : HMenu; 
begin 
  SysMenu := GetSystemMenu(Handle, FALSE) ;        <--Holt den Handle auf das Systemmenü? Meine Anwendung hat jedoch kein menü?!
  DeleteMenu(SysMenu, MnuCommand, MF_BYCOMMAND);   <--Verhindert das ein nichtexistentes Menü verschoben werden kann?
end;

Vielen Dank schonmal an dich und an alle anderen für ihre Antworten.

[rollstuhlfahrer]

HI,

mit den beiden Anweisungen wird das System-Menü ausgelesen. Das ist nicht etwa dein Menü wenn du es auf die Form ziehst und dann unterhalb der Titelleiste auftaucht, sondern das Menü, dass z.B. auftaucht, wenn du einen Rechtsklick auf das AnwendungsIcon in der Titelleiste machst. Dort taucht dann allerlei auf, wie auch die Option Verschieben. Da diese Option deaktiviert sein soll (du willst ja die Form nicht verschiebbar machen) wird sie aus dem Menü herausgenommen (DeleteMenu).

Bernhard

[richard_boderich]

THX for the Info :)

[Schwedenbitter]

Hallo,

ich muss das Thema leider wieder aufwärmen:

Ich habe mittels

Delphi-Quellcode:

Procedure TDiktate.WMWindowPosChanging(Var Msg: TWMWindowPosMsg);
   // Message WM_WindowPosChanging;
Begin
   Inherited;
   Msg.WindowPos^.flags:=Msg.WindowPos^.flags Or SWP_NoMove;
End;

die Form unverschiebbar gemacht. Im ObjektInspektor habe ich Position:=poScreenCenter gesetzt. Leider funktioniert das nun nicht mehr. Das Fenster wird ausnahmslos dort angezeigt, wo ich es erstellt habe bzw. bei 0,0 (=links oben). Vermutlich liegt es daran, dass die Position erst später angepasst und dann WMWindowsPosChanging schon ausgeführt wird.

Wie erreiche ich es, dass das Fenster wieder poScreenCenter und unverschiebbar wird?

Es gleich in der Mitte zu positionieren scheidet aus, weil die Benutzer ja unterschiedliche Auflösungen haben könnten.

Gruß, Alex

[turboPASCAL]

Bau dir eine Variable ein die nach dem anzeigen des Fensters
das verschieben deakviert.

Delphi-Quellcode:

Procedure ...WMWindowPosChanging(Var Msg: TWMWindowPosMsg);
   // Message WM_WindowPosChanging;
Begin
   Inherited;
   if not selfmove then Msg.WindowPos^.flags:=Msg.WindowPos^.flags Or SWP_NoMove
    else selfmove := false;
End;

procedure ...FormShow(Sender: TObject);
begin
  selfmove := ture;
end;

[Schwedenbitter]

Zitat:

Zitat von turboPASCAL

Bau dir eine Variable ein die nach dem anzeigen des Fensters
das verschieben deakviert.

Genau das hatte ich auch schon probiert. Ich hatte die Variable aber vom MainForm "gesteuert". Das klappte - warum auch immer - nicht. So wie von Dir vorgeschlagen von OnShow aus geht es jetzt. 1000 Dank!

Gruß, Alex

[himitsu]

Das es so nicht geht, liegt wohl daran, daß die Form mehrfach verschoben wird und dann auch noch X und Y getrennt.

Und der Code hatte so nur eine Verschiebung zugelassen.