如何取消窗口的大小改变功能?对窗口右上方的三个功能键(最小,关闭,复员)进行定义?让其失效或可用?

解决方案 »

  1.   

    看一下form属性bordericons,里面可以实现。
      

  2.   

    其实可以直接在窗口的属性设置里面设置就可以,把窗口的样式改成,bssingle,(这样就不能用鼠标拖动来改变大小了)再在bordericons里面把最大,或者是最小,反正是你不要的,设成false就行了,(当然也可以直接用代码来实现,有必要的话)不知道符不符合你所要实现的,试试看吧。
      

  3.   

    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
    Canclose := False;
    end;end.
      

  4.   

    改变一下bordericons
    还可以改borderstyle