怎样使最大化功能按钮失效?(20分)

  • 主题发起人 主题发起人 张利中
  • 开始时间 开始时间

张利中

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi的界面窗口中,怎样使窗口标题栏右上方的中间按钮(即最大化/还原)失效,即
当用户单击时,它不响应操作. 或者怎样让它消失?

 
Form1.BoarderIcons :=[biSystemMenu,biMinimize];
OK?
 
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
Inherited;
if Msg.Result = HTZOOM then Msg.Result := HTNOWHERE;
end;

end.
 
只要Form1.BoarderIcons :=[biSystemMenu,biMinimize];就可以了!
或者在属性框里设置!
 
同意,如果不需要在执行过程中判断的话,最简单的就是设置属性了。
 
按F11键出现属性窗体找到FORM的属性,在BOARDERSTYE栏点前面的+号,出现子项目,使MAX那
一项成FALSE.
 
谢谢各位,接受所有意见!
 
后退
顶部