窗口最小化后使之不可视,怎么实现 捕获最小化命令,然后加入 Form.Hide; 即可! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如何知道用户点击了窗口的最小化按钮?截获WM_SYSCOMMAND消息。窗体的类声明如下:TForm1 = class(TForm)private{ Private declarations }public{ Public declarations }procedure WMSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;//响应WM_SYSCOMMAND消息end;WMSysCommand的实现如下:procedure TForm.WMSysCommand(var Message: TWMSysCommand);beginInherited;//调用先前的处理函数if (Message.CmdType and $FFF0 = SC_MINIMIZE) then... //自己的处理end;end; 是说不在任务条里出现么?HIDE就可以了啊? FastReport 的问题,2.5里面怎么让TfMemoView自动行高呢?! XLSheet控件使用问题 小問題 : 關於Edit輸入框 Delphi 7和Delphi.net是不是同一个东东? 大家好 空前绝后巨简单问题,纯属送分. 邮件接收idmessage的问题 修改问题? mis的登陆窗口应该怎样被引导出来????????????// FastReport、ReportBuilder和quickReport的选择 图形方面问题,高手请进!!! 通過中間件有沒有遠程文件存儲文件的方法???
窗体的类声明如下:
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }procedure WMSysCommand(var Message: TWMSysCommand);
message WM_SYSCOMMAND;//响应WM_SYSCOMMAND消息
end;WMSysCommand的实现如下:
procedure TForm.WMSysCommand(var Message: TWMSysCommand);
begin
Inherited;//调用先前的处理函数
if (Message.CmdType and $FFF0 = SC_MINIMIZE) then
... //自己的处理
end;
end;