如何控制标题栏?(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;
 
后退
顶部