怎样去掉form上的最大化，和最小化的图标，以及不能使form最大和最小化！急！

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  BorderStyle := bsDialog;
end;

Answer 1

将该窗口的如下属性设为false就可以了！
bordelicons->biMinimize
           ->biMaximize
以及将Bordestyle设为bsSingle就一切OK了!

Answer 2

procedure WMGetMinMaxInfo(var Message:TWMGetMinMaxInfo); message WM_GETMINMAXINFO;procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200; {最大化时宽度}
ptMaxSize.Y := 200; {最大化时高度}
ptMaxPosition.X := 99; {最大化时左上角横坐标}
ptMaxPosition.Y := 99; {最大化时左上角纵坐标}
end;
Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
inherited;
end;用这个可以让窗口最大化是不是满屏而是按你的尺寸最大化
  就象delphi的代码框最大化也不是满屏

Answer 3

procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
inherited; // 这样,移动就不可能了...
Msg.Result := HTHSCROLL
end;
不让窗体移动