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;//为什么必须放在MessageBeep后面?放在前面就编译不了
end;
解决方案 »
- --------天下兗然有這等事!明明查詢是這樣的結果,到了DBGRID后,數據卻不一樣?(搞了幾天了)--------
- 请问如何把得到日期按照自己想要的格式输出成字符串
- fastreport怎样将纸张设置为连续进纸,即针式打印机常用的有两边有孔的那种纸?
- 请指教做报表的经验和需要注意的事项!
- 請問ADODataSet1.Locate的準確查詢是如何用的?
- 请问一个字符串拆分的算法!
- 在线等待:如果我要用Possmessage传递一个字符串,如何做................
- 我有一段代码,但运行时好象总不对!请各位兄弟帮帮忙
- 关于线程的数据库编程?
- 处女地--高手开垦
- 控件不能用啊
- 请教个正则表达式问题:如何取得其中的某段文字呢?比如'".*"'
begin
inherited;
MessageBeep(0);
end;