如下一段代码:wm_paint消息什么时候就会发生。然后主机就会响一下?unit GMMain;interfaceuses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs;type
TForm1 = class(TForm)
private
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMPaint(var Msg: TWMPaint);
begin
MessageBeep(0);
inherited;
end;
end.
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs;type
TForm1 = class(TForm)
private
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMPaint(var Msg: TWMPaint);
begin
MessageBeep(0);
inherited;
end;
end.
解决方案 »
- TWebBrowser下载的图,如何获得它在Temp的位置及文件名﹖
- 如何得到DBGridEh中具体某一格里的值。
- 关于ORACLE 的BLOB存储再开一帖
- Delphi+Oracle(ADO组件),C/S结构的应用程序问题:1)如何无需安装Oracle客户端?;2)如何实现访问远程数据库?
- datetimepicker怎么没有设置readonly为true,这样可以没法选择。
- MDI 高手 求救!!!
- 大家好,怎样才能做出将工具窗体与主窗体粘合到一起
- 有没有在参加www.cctv.com开心辞典网上选拔的,请问如果取得高分!!(
- 如果设adoquery的属性为编辑属性
- Qreport报表如何输出到文件?
- 关于显示网页代码
- 是关于Tclientdataset的问题
begin
beep;
end;
Trojan.DL.Win32.Delf.fxs
谢谢2楼的哥哥