Fenster nicht verschieben

[Luckie]

Delphi-Quellcode:

private
{ Private-Deklarationen }
public
  procedure WMNChittest(var msg:TWMNChittest);Message WM_NChittest;
end;

var
  Form1: TForm1;

implementation
  {$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  position:=poscreencenter;
end;

procedure TForm1.WMNChittest(var msg:TWMNChittest);
begin
  DefaultHandler(Msg);
  if Msg.result=HTCAPTION then 
    Msg.result:=HTCLIENT;
end;