在Delphi6中能否使一个子窗口显示时永远保持最大化而且置后?

jiaxianglei 2003-05-28 11:57:16

在Delphi6中能否使一个子窗口显示时永远保持最大化而且置后?
当打开其它子窗口时,它还是最大化?好像实现不了耶.

...全文

142 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

jiaxianglei 2003-05-31

打赏
举报

我把它设置成不可移动的窗口,使它永远在后面,已经解决了,谢谢大家.

Intelement 2003-05-29

打赏
举报

MDI Application?

jiaxianglei 2003-05-29

打赏
举报

我想打开其它子窗口时,它仍在最后面,如果它是普通子窗口的话,它的大小就会改变,而且有可能会在前面,所以我想让它永远保持最大化而且置后.

sixgj 2003-05-29

打赏
举报

灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水水水灌灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水水水水水水水水水灌灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水水水水水水水水水灌灌灌灌灌灌
灌灌灌灌灌灌灌灌灌灌灌水水水水灌水水水水水水水水水水水灌灌灌灌灌半灌灌灌灌
灌灌灌灌灌灌灌灌水水水水水水水灌水水水灌灌水水水水水灌灌灌灌灌灌灌灌灌灌灌
灌灌灌水水水水水水水水水水水水灌灌灌灌灌灌水水水水灌灌灌灌灌灌灌灌灌灌灌灌
灌水水水水水水水水水水水水水水灌灌灌灌灌灌水水水水灌灌灌灌灌灌灌灌灌灌灌灌
灌水水水水水水水水水水水水灌灌灌灌灌灌灌水水水水水水水水水水水灌灌灌灌灌灌
灌水水水水水水水水水水水水灌灌灌灌灌灌水水水水水水水水水水水水水水灌灌灌灌
灌灌水水水水水水水水水水灌灌灌灌灌水水水水水水灌灌灌水水水水水水水灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌灌水水水水灌灌灌灌灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌灌水水灌灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌灌水水水水灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌灌水水水水灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌灌水水水灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌灌水水水灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌水水水水灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌水水水水灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌水水水水灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水水灌水水水水灌灌水水水水水灌灌灌灌灌
灌灌灌灌灌灌灌灌水水水水灌灌灌灌水水水灌灌水水水水灌灌水水水水水灌灌灌灌灌
灌灌水水灌灌灌水水水水水灌灌灌灌水水水灌灌水水水灌灌灌水水水水水灌灌灌灌灌
灌灌水水水水水水水水水水灌灌灌灌灌水水灌灌水水灌灌灌灌水水水水水灌灌灌灌灌
灌灌灌水水水水水水水水水灌灌灌灌灌灌灌灌水水水灌灌灌灌水水水水灌灌灌灌灌灌
灌灌灌灌灌水水水水水水水灌灌灌灌灌灌灌灌水水水灌水水水水灌灌灌灌灌灌灌灌灌
灌灌灌灌灌灌水水水水水水灌灌灌灌灌灌灌水水水水灌灌水水水水灌灌灌灌灌灌灌灌
灌灌灌灌灌灌灌灌灌水水水灌灌灌灌灌灌水水水水水灌灌灌水水水水水水水灌灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌灌水水水水水水灌灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌灌灌水水水水水水水灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水灌灌灌灌灌灌灌灌灌灌灌水水水水灌灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水灌灌灌

mengqifeng 2003-05-29

打赏
举报

学习

Maple119 2003-05-29

打赏
举报

一、做成MDI窗口,其它打开的子窗口设置成fsMDIChild.这样打开的子窗口就永远不会在主窗口下面.
二、去掉窗口最大化按钮，去掉系统菜单，然后设置窗口以最大化显示。

Intelement 2003-05-28

打赏
举报

设置窗口的 WindowState 属性为 wsMaximized
应该凑和和吧
也不知道你想干嘛

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;

Intelement 2003-05-28