让最大化无效:form1.bordericons := [biSystemMenu,biMinimize];
解决方案 »
- 万能的CSDN,请教inno打包疑难杂症,有哪位大夫给看下呗~
- 为什么控件作为参数传到DLL中会报错呢???
- 高手快来看看。webbrowser打不开3gqq
- 能不能做出这样一个程序:点一个按钮将IP设成自动分配IP地址,点另一个设成固定IP。
- 高手请进,问题绝不会让你失望!!!!!
- ★★★-[ 如何替换 其他应用程序(exe文件) 的图标(要编程实现) ]-★★★
- 要分的请进来:)
- 太神奇了!delphi居然有的时候format cource对个别单元不起作用!
- A Call to an OS function failed,在调用Modal form后,关闭窗体时发生?
- 求救:ADO可以连上SYBASE数据库吗?如可以选那个驱动程序?
- 高分求救怎样调用report builder设计好的ppreport,并且用ppreviewer可以预览?
- delphi中有没有划线的控件.....具体是...
2.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MAXIMIZE) then
msg.Msg:=WM_NULL;
inherited;
end;end.
2。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MAXIMIZE) then
msg.Msg:=WM_NULL;
inherited;
end;procedure TForm1.FormCreate(Sender: TObject);
beginend;end.
或者编程实现:form1.BorderIcons:=[];
var mnu: HMENU;
begin
mnu := GetSystemMenu(Handle, False);
EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);
end;
procedure TForm1.FormCreate(Sender: TObject);
var mnu: HMENU;
begin
mnu := GetSystemMenu(Handle, False);
DeleteMenu(mnu, SC_MAXIMIZE, MF_BYCOMMAND);
end;
EnableMenuItem(mnu,SC_MAXIMIZE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);