Ingen flytning af form.

i bordericons biminimized til false
i bordericons bimaximized til false

//code disable movement of a form

private
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
   
{....}

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  with Message do
  begin
    if Result = HTCAPTION then
      Result := HTNOWHERE;
  end;
end;

Hvordan skal jeg bruge den? Skal procecduren kaldes fra et bestemt sted?

Jeg får en fejl i den.

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  with Message do
  begin
    if Result = HTCAPTION then
      Result := HTNOWHERE; <------ HER FÅR JEG DEN!
  end;
end;

[Error] MainUnit1.pas(63): E2010 Incompatible types: 'Integer' and 'THitTest'

smider lige hele mit eksempel som kører.....

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
  procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  with Message do
  begin
    if Result = HTCAPTION then
      Result := HTNOWHERE;
  end;
end;

end.

Dit eksempel virker. Og af en eller anden grund virker det også hos mig nu. Lige til sidst. Den form jeg er gerne vil have det til at virke på har ikke focus, hvordan gøres det?

brug form2.showmodal - så har den absolut focus indtil den lukkes. Selvom du klikker ved siden af formen mister den ikke focus.

Det spiller ikke. Hvis jeg gør det får jeg ikke kontrol over Form1. Jeg kunne nu godt tænke mig at jeg havde muligheden for at minimere programmet. Hvis jeg gør det som du beskriver kan jeg slet ikke lukke programmet, men må stoppe det via CTRL+F2.

Det skal lige siges, at jeg har gjort sådan her.

Form2.parent := Form1;
Form2.Show;

du kan lukke din child med action:= CaFree

i din child OnClose

Super. tak for det.