Fenster gegen Verschieben schützen

[thomasdrewermann]

Diesen Code einfach unter Type einfügen:

Code:

procedure WndProc(var msg : TMessage);override;

Unter Implementation einfügen:

Code:

procedure TForm2.WndProc(var msg : TMessage);
begin
  if msg.Msg = WM_NCLBUTTONDOWN then
  begin
    if msg.WParam <> HTCLOSE then
    begin
      exit;
    end;
  end;
  inherited WndProc(msg);
end;