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

[jayelva2003]

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

[frogshero]

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

[goomoo]

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.BorderIcons:=[biSystemMenu,biMinimize];
end;

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

[goomoo]

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.BorderIcons:=[biSystemMenu,biMinimize];
end;

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

[hotdog911]

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

[活力华华哥]

同意古木

[Dephiuser]

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.BorderIcons:=[biSystemMenu,biMinimize];
end;

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

[flfljh]

以上的都对
你好好试试
没有什么区别

[FrameSniper]

哥们们，这个楼主只是说要无效，没有说要隐藏啊！做法如下，重新处理WM_SYSCOMMAND消息：

procedure WmSysCommand(var Msg:TMessage);message WM_SYSCOMMAND;
begin
if Msg.WParam = SC_MINIMIZED then
Inherited;
end;

[FrameSniper]

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

[liushulin]

在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等等.

[OO_is_just_P]

OK

[lzzqqq]

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

[goomoo]

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

[malebird]

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

Inherited;

end;