如何获得系统菜单选择事件:如"还原","最小化"等? 我采用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做的项目在英文xp上中文乱码?? delphi字体很丑? 大规模修改记录的更新速度问题 动态创建按钮及指定按钮事件的问题? 字段值不能为空格的问题 怎樣把幫助文件編譯到exe文件中 用AdoDataSet的LoadFormFile装入一个文件后,关闭它再用Open 命令打开表则出错? delphi中如何将数据库中的内容用word的形式打开并显示出来 从什么地方可以得到 dbExpress 的 sql server 驱动程序? 简单问题。 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;