Form verbieten zu bewegen

[hermannhass]

Habe eine ganz einfache Frage.
Sehe im Moment von lauter Wald die Bäume nicht.

Wie kan ich eine Form auf dem Screen verbieten, mit der Mouse
bewegt zu werden. Sie sol fest auf einer position bleiben.

Fällt mit total nicht ein....

[WordsBG]

Das einzige was ich wüsste wäre das hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TfrmMain = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Idle(Sender: TObject; var Done: Boolean);
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.Idle(Sender: TObject; var Done: Boolean);
const
  posX = 300;
  posY = 300;
begin
  if (Self.Top <> posY) AND (Self.Left <> posX) then
  begin
    Self.Top := posY;
    Self.Left := posX;
  end;
  Application.ProcessMessages;
  Sleep(100);
  Done := False;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnIdle := Idle;
end;

end.

Es verbietet zwar nicht das verschieben, aber sofort nach dem loslassen der Maus ist das Fenster wieder an der richtigen Stelle. Wahrscheinlich lässt sich das aber noch besser lösen.

[SirThornberry]

: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 Behandlung von WM_NCHITTEST

[bitsetter]

Hi,

Delphi-Quellcode:

RemoveMenu(GetSystemMenu(handle, false), SC_MOVE, MF_BYCOMMAND);

reicht ja manchmal auch schon aus.

Wenn du auch noch verhindern möchtest, dass die Größe geändert werden kann, dann könntest du noch

Delphi-Quellcode:

RemoveMenu(GetSystemMenu(handle, false),SC_SIZE, MF_BYCOMMAND);

hinzufügen.

[Muetze1]

Einfach SetBounds() überschreiben und die Parameter ALeft und ATop mit Left und Top zuweisen und dann die überschriebene Methode aufrufen...

[hermannhass]

Vielen Dank für Eure Antworten.

nur komme ich nicht weiter. Ich möchte mein kleines LoginFenster(tform, parent=nil) verbieten,
das man es mit der maus(!) verschiebt.

1) wm_moving/wm_move in wndprog abfangen und ignorieren (message löschen) , natürlich vor "inherited"
2) RemoveMenu(GetSystemMenu(handle, false), SC_MOVE, MF_BYCOMMAND) in CreateWnd
3) Override SetBounds() und übergabe der orginal boundsrect

Alle 3 methoden haben keine Wirkung.
wenn wm_move/wn_moving aufgerufen wird, war das verschieben schon fertig
removemenu hat keinen einfluss auf mause-verschieben
setbounds wird beim move nicht aufgerufen

wie soll das mit dem WM_NCHITTEST gehen?

gruß Hermann

[hermannhass]

Danke,
habs nach etwas google doch gefunden...
zu Eurer Info:
WM_Move im WM_SYSCOMMAND abfangen!

procedure TadaForm0.WMSysCommand(var msg: TWMSysCommand);
begin
if ((msg.CmdType and $FFF0) = SC_MOVE) then
begin msg.result := 0; exit; end;
inherited;
end

[SirThornberry]

so hab ichs gemeint:

Delphi-Quellcode:

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);
  lRect^ := Rect(Left, Top, Left + Width, Top + Height);
end;

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