怎样使窗体标题栏的按钮无效,很急!!!!!!!!!!!!!

Question

在DELPHI里,怎样使窗体标题栏上的最大化按钮和关闭按钮无效,只保留最小化按钮?请大家
尽快告诉我非常急!!!!!!!!!!

Answer 1

deleteMenu(getsystemMenu(self.Handle,false),SC_CLOSE,MF_BYCOMMAND);

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.BorderIcons:=[biSystemMenu,biMinimize];
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canClose:=false;
end;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.BorderIcons:=[biSystemMenu,biMinimize];
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canClose:=false;
end;

Answer 4

在Form的属性框里找BorderIcon属性，将其中的biMaximize变为False，就可以了

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.BorderIcons:=[biSystemMenu,biMinimize];
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canClose:=false;
end;

Answer 6

哥们们，这个楼主只是说要无效，没有说要隐藏啊！做法如下，重新处理WM_SYSCOMMAND消息：procedure WmSysCommand(var Msg:TMessage);message WM_SYSCOMMAND;
begin
  if Msg.WParam = SC_MINIMIZED then
    Inherited;
end;

Answer 7

也可以覆盖窗体的窗口过程WndProc，在里面增加对消息WM_SYSCOMMAND的处理内容！

Answer 8

在delphi7里面:
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType = SC_MAXIMIZE then
begin
;
end else
    Inherited;
end;
===========================================
上面的SC_MAXIMIZE可以改成SC_CLOSE或SC_MAXIMIZE等等.

Answer 9

靠，这么弱智的问题！！
窗体->property->bordericons->bMinimize->false
窗体->property->bordericons->bMaximize->false

Answer 10

"靠，这么弱智的问题！！
窗体->property->bordericons->bMinimize->false
窗体->property->bordericons->bMaximize->false"
-------
先看清楼主的问题再作答。

Answer 11

这样是不是更完整？
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
if (Msg.WParam <> SC_MAXIMIZE  )and( Msg.WParam <> SC_CLOSE) then
begin    Inherited;
    
end;