如何控制标题栏?(50分)

新手

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟我经常看到有的窗口的标题栏上的关闭按钮
是灰色的,不只是如何实现的,恳请各位大虾告知一二.
 
BorderStyle设为 bsNone,然后自己做一个标题栏
 
在onshow中加入
procedure TForm1.FormShow(Sender: TObject);
begin
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;
 
To sunstone:
50分给你了,thank you;
 

Similar threads

S
回复
0
查看
621
SUNSTONE的Delphi笔记
S
S
回复
0
查看
702
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
顶部