如何用Application.OnMinimize定制最小化事件? 拦截WM_COMMAND消息,滤出SC_MINIMIZE消息进行处理。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 拦截WM_SYSCOMMAND的SC_MINIMIZE消息进行处理。 private procedure doit(sender:tobject);........end;implementationprocedure tform1.doit(sender:tobject);begin ... messagebeep(0); ...end;procedure TForm1.FormCreate(Sender: TObject);begin application.OnMinimize:=doit;end; 按钮关闭窗口问题。。。请帮助 昨天搞了台电脑,不知怎么样连接功放和电视。。要买什么线吗? 请问如何解决下面的问题(关于DbGrid的) 大虾们帮忙,如何编写汉字转语音的程序? dbgrid单击事件 关于一个简单控件的实现 在fastreport中代码该怎么写? 我想双击执行文件,下面的代码有错,请帮忙! 如何找到窗口上面的一个按钮的句柄。 大家认为Ttimer定时器会不会有误差,大不大,据说在定时同时打开office,delphi,photoshop等“大件”时,定时就会不准 加载类型库/dll时出错 怎么连接?
procedure doit(sender:tobject);........
end;implementationprocedure tform1.doit(sender:tobject);
begin
...
messagebeep(0);
...
end;procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMinimize:=doit;
end;