在Delphi6中能否使一个子窗口显示时永远保持最大化而且置后?
当打开其它子窗口时,它还是最大化?好像实现不了耶.
当打开其它子窗口时,它还是最大化?好像实现不了耶.
解决方案 »
- ADOConnection直接设置Internet上的一个公网IP和端口号连接数据库,速度慢
- 如何向TextArea填表
- 觸發器問題
- 串口通信 为什么串口会莫名其妙的 挂掉 ?在线等!
- 大家看看错在哪里?
- 送分题:请回答:delphi中如何对 ' 进行转义,50分
- 请问怎样打开浏览使用BORLAND数据引擎的数据库文件,马上给分
- 数据库: 如何将sql server数据库导出到access??
- 怎么样才能让button控件显示hint?
- 对面的高手看过来!如何实现行相加?
- 请问象office如word 能伸缩的菜单怎么实现的,象网络蚂蚁右下的grid从左到右平拖动态效果如何实现的??
- 怎么样读取DBGrid的值?
应该凑和和吧
也不知道你想干嘛type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMActivate(var Msg: TWMActivate);
begin
SetWindowPos(Handle,
HWND_BOTTOM,
0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);
end;procedure TForm1.FormCreate(Sender: TObject);
var
hSysMenu: HMENU;
begin
hSysMenu := GetSystemMenu(Handle, False);
DeleteMenu(hSysMenu, SC_RESTORE , MF_BYCOMMAND);
DeleteMenu(hSysMenu, SC_MOVE , MF_BYCOMMAND);
DeleteMenu(hSysMenu, SC_SIZE , MF_BYCOMMAND);
DeleteMenu(hSysMenu, SC_MINIMIZE, MF_BYCOMMAND);
DeleteMenu(hSysMenu, SC_MAXIMIZE, MF_BYCOMMAND);
DeleteMenu(hSysMenu, 0 , MF_BYCOMMAND);
end;
二、去掉窗口最大化按钮,去掉系统菜单,然后设置窗口以最大化显示。