Formular soll nicht verschiebbar sein?

[ReDoX]

Hi,
wenn du die Leiste in der die Caption steht (ich weiss nicht wie die heißt.. )
nicht brauchst kann du das so machen :

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure WndProc(var Message: TMessage);
    private
 
........


procedure TForm1.WndProc(var Message: TMessage);
begin
  If Message.Msg = WM_NCHITTEST then
   begin
    Message.Msg := WM_NULL;
   end;
  inherited WndProc(Message);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Windowproc :=  WndProc;
end;

oder so:

Delphi-Quellcode:

procedure TForm1.WndProc(var Message: TMessage);
begin
  If Message.Msg = WM_MOVE then
   begin
    Form1.Top := 100;// ODer wo deine Form liegen soll
    Form1.Left := 100;
   end;
  inherited WndProc(Message);
end;

Mfg ReDoX