如以DELPHI下程序
procedure a(var msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;if msg.cmdtype and $FFF0 =SC_CLOSE then
hide
else
inherited
end;在BCB中可以这样用
在Form 类定义中
void __fastcall OnSysClose(TMessage Message);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage,OnSysClose)
END_MESSAGE_MAP(TForm) 在主程序中
void __fastcall TForm1::OnSysClose(TMessage Message)
{
if (Message.wParam==SC_CLOSE())
Hide();
else
//inherited DELPHI 的这一句在BCB 中如何描述
endif}
procedure a(var msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;if msg.cmdtype and $FFF0 =SC_CLOSE then
hide
else
inherited
end;在BCB中可以这样用
在Form 类定义中
void __fastcall OnSysClose(TMessage Message);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage,OnSysClose)
END_MESSAGE_MAP(TForm) 在主程序中
void __fastcall TForm1::OnSysClose(TMessage Message)
{
if (Message.wParam==SC_CLOSE())
Hide();
else
//inherited DELPHI 的这一句在BCB 中如何描述
endif}
解决方案 »
- datasnap里如何使用insert into,delete等sql语句?
- Delphi如何通过获取当前登陆的QQ
- dephi7出现httpapp.dcu找不到
- 在Dll中动态生成Frame的问题,不解中......大侠们请帮一把
- delphi 有没有位操作?在线急等
- 各位麻烦进来帮我看看我错在什么地方!
- Rave报表用RTF输出后发生了长度对不上,以及中文变乱码的情况,如何解决
- delphi6出了怪问题,,"," is not a valid identifier 不能存盘!!
- 新手的问题,为什么下面的程序运行时,只能见到一个窗体,看不到运行结果???
- delphi的问题
- 本月加薪了,散分!!!
- 批量处理问题.
{
if (Message.wParam==SC_CLOSE)
Hide();
else
//inherited DELPHI 的这一句在BCB 中如何描述
;}
this->Perform(xxxx) 来把消息传下去