如何让窗体最大化,并覆盖任务栏? 我想让主窗体最大化,并覆盖任务栏,如何能实现呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设置窗体的FormStyle属性为fsMDIFormwindowstate属性为wsMaximized unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure CreateParams(Var Params:TCreateParams);override; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin form1.Height:=Screen.Height; form1.Width:=screen.Width; form1.Top:=0; form1.Left:=0;end;procedure tform1.CreateParams(var Params:TCreateParams);begin inherited; With Params do begin wndParent:=GetDesktopwindow; ExStyle:=ExStyle or WS_EX_TOPMOST; end;end;end. 请问有那位高手知道怎样求Region 的Point[] 各位大俠,小弟遇到的怪问题! 关于DLL接口的问题,解决就给分 如何做一个象防火墙一样,系统启动,它就启动,但它的窗体不打开? 用数组做函数的参数,这个函数的参数部份怎么写? 在dbgrid中显示金额时带千分号的问题 关于条码扫描仪的问题。100分。 beep()的问题 各位大虾,谁有用DELPHI制作的小精灵的控件. ListView问题! 怎么实现服务器得到连接客户端列表,并实时刷新?急急急! DELPHI中有64位的整数类型吗?
windowstate属性为wsMaximized
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(Var Params:TCreateParams);override;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Height:=Screen.Height;
form1.Width:=screen.Width;
form1.Top:=0;
form1.Left:=0;
end;
procedure tform1.CreateParams(var Params:TCreateParams);
begin
inherited;
With Params do
begin
wndParent:=GetDesktopwindow;
ExStyle:=ExStyle or WS_EX_TOPMOST;
end;
end;
end.