怎样才能把窗体全屏幕,!

chago 2002-11-04 11:09:45
怎样才能把窗体真正的全屏幕,不能有状态栏显示呀!
...全文
28 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
rmichael 2002-11-04
  • 打赏
  • 举报
回复
procedure TForm_Main.FormCreate(Sender: TObject);
begin
Resizing(wsMaximized);
end;
lws0472 2002-11-04
  • 打赏
  • 举报
回复
设置一下form属性
BorderStyle bsSingle
WindowState wsMinimized
b51 2002-11-04
  • 打赏
  • 举报
回复
我是来学习的
Snakeguo 2002-11-04
  • 打赏
  • 举报
回复
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
WindowState := wsMaximized;
  • 打赏
  • 举报
回复
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.BorderStyle:=bsNone;
form1.WindowState:=wsMaximized;
end;
killer2008 2002-11-04
  • 打赏
  • 举报
回复
窗口属性:
bodestyle:=bsnone;
windowstate:=wsMaximized;
hnxrm 2002-11-04
  • 打赏
  • 举报
回复
想任务栏不显示,你可以隐藏工具栏啊

procedure hideTaskbar; //隐藏

var

wndHandle : THandle;

wndClass : array[0..50] of Char;

begin

StrPCopy(@wndClass[0], 'Shell_TrayWnd');

wndHandle := FindWindow(@wndClass[0], nil);

ShowWindow(wndHandle, SW_HIDE);

End;

maltel 2002-11-04
  • 打赏
  • 举报
回复
上面的都不符合要求,工具栏还是会显示出来

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧