unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
procedure GetMinMaxInfo(var message:TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
public
{ Public declarations }
end;
属性图片也上传了。在图片中。
var
Form1: TForm1;implementation
procedure Tform1.GetMinMaxInfo(var message:TWMGetMinMaxInfo);
begin
with Message.MinMaxInfo^ do
begin
ptmaxsize.X:=200;
ptmaxsize.Y:=200;
ptmaxposition.X:=200;
ptmaxposition.Y:=200;
end;
message.Result:=0;
end;
{$R *.dfm}end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
procedure GetMinMaxInfo(var message:TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
public
{ Public declarations }
end;
属性图片也上传了。在图片中。
var
Form1: TForm1;implementation
procedure Tform1.GetMinMaxInfo(var message:TWMGetMinMaxInfo);
begin
with Message.MinMaxInfo^ do
begin
ptmaxsize.X:=200;
ptmaxsize.Y:=200;
ptmaxposition.X:=200;
ptmaxposition.Y:=200;
end;
message.Result:=0;
end;
{$R *.dfm}end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货