如何获得系统菜单选择事件:如"还原","最小化"等? 我采用MDI窗口显示界面,希望选择子窗口的"还原","最小化"按钮或系统菜单时,不进行"还原","最小化",该如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //截获WM_SysCommand消息 public procedure WMSysCommand(var Message: TMessage); message WM_SysCommand;procedure TForm1.WMSysCommand(var Message: TMessage);begin if (Message.WParam <> SC_MINIMIZE) and (Message.WParam <> SC_RESTORE) then inherited;end; delphi 判断网络问题 关于MsComm控件的问题 调查:大家还在做DELPHI吗? 求购 NetApi32.dll 的声明文件 哈哈~ idhttp控件做post程序 为什么是 http/1.0呢~? 如何为程序动态添加控件,并且动态的为该控件添加事件!!! 谢谢trainbox(rain)的热心,再给50分:) Delphi中关于事务的讨论 求教,程序运行计时显示 在ADO控件中怎能实现BDE的TBatchMove功能 table与odbc的问题? 简单问题,如果提高从文本导入数据到oracle数据库的速度?(在线等待)
public
procedure WMSysCommand(var Message: TMessage); message WM_SysCommand;procedure TForm1.WMSysCommand(var Message: TMessage);
begin
if (Message.WParam <> SC_MINIMIZE) and (Message.WParam <> SC_RESTORE) then
inherited;
end;