BorderStyle:bsNone;
WindowState:wsMaximize;
WindowState:wsMaximize;
解决方案 »
- 开多个窗口后怎么让每个窗口都在任务栏上有个显示(就像MSN和多个人同时聊天时任务栏显示多个窗口一样)
- 我在SQL SERVER2000里可以查询,可以DELPHI运行就说“FORM语句有错误”。
- TTcpClient能在一个线程类里面实例化么
- 急急急!!!!!!
- 有没有必要做这样一个数据打包器用来在帖子上发数据以免除发E-MAIL的麻烦?
- 高分求助:在DELPHI中怎样画向量图???
- delphi 对windows消息队列的使用
- 在线等:CopyFileTo函数怎样使用?
- 请看bde一错误!!
- 质疑CSDN的客户端程序!小弟有几个问题,不知道放在哪个版好,听说CSDN的客户端程序是Delphi写的,所以先放在这里吧!
- 怎样在ListView1中添加项?
- 如何追加记录:
WndHandle : THandle;
begin
// 获取任务栏的窗口句柄
WndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(WndHandle, SW_HIDE); // 隐藏任务栏
// SW_SHOW); // 显示任务栏
end;
height:=screen.Height;
Position:=poScreenCenter;
设置Form的style:=StayOnTop就可以了
测试通过!
var
WndHandle : THandle;
begin
// 获取任务栏的窗口句柄
WndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(WndHandle, SW_HIDE); // 隐藏任务栏
// SW_SHOW); // 显示任务栏
end;
WndHandle : THandle;
begin
// 获取任务栏的窗口句柄
WndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(WndHandle, SW_HIDE); // 隐藏任务栏
// SW_SHOW); // 显示任务栏
width:=screen.Width;
height:=screen.Height;
Position:=poScreenCenter
end;两个加起来才好,不过别忘了,结束后,恢复任务条,没任务条的日子不好过哟!呵呵……
把borderstyle:=bsNone;
windowstate:=wsMaximized
就搞定了!