找到解决方法了。。。
来源:互联网 发布:java 字符串带双引号 编辑:程序博客网 时间:2024/05/22 00:28
直接上代码,惭愧了
public
{ Public declarations }
procedure LBWndProc(var message:TMessage);
end;
var
Form5: TForm5;
OldWndProc:TWndMethod;
implementation
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
OldWndProc:=lb1.WindowProc;
lb1.WindowProc:=LBWndProc;
end;
procedure TForm5.LBWndProc(var message: TMessage);
begin
with message do
begin
if msg=WM_LBUTTONDOWN then
begin
beep();
end
else
OldWndProc(message);
end;
end;
- 找到解决方法了。。。
- 网络视频卡顿?MIT利用人工智能找到了解决方法
- 找到了
- 找到了
- 如果你的衣服被染色了,怎么办?所有的情况在这都能找到解决方法
- regsvr32 注册ocx 找不到指定的模块 ---终于找到解决方法了
- 无法安装64位office因为找到了32位程序的解决方法
- 经过了多种方法的尝试,终于找到Quartus破解成功但是没有办法编译的解决方法
- 终于找到工作了!
- 终于找到工作了
- 她找到房子了
- 找到工作了
- Shawn找到组织了!!!!!!!!
- 找到了GAC
- 终于找到工作了!
- 又找到了
- 找到工作了
- 我找到原因了
- Android中ContentProvider和ContentResolver使用入门
- 使用7610的一点点总结 - 应用软件篇
- fs2410 linux-2.6.35内核移植中的RTC问题--drivers/rtc/hctosys.c: unable to open rtc device (rtc0)
- 《人月神话》作者Brooks最新力作《设计原本》前500册65折首发,英文版同步发售!
- ls -l 列表信息详解
- 找到解决方法了。。。
- 使用ADO创建Excel数据表
- 按字节截取规定长度的字符串
- thinkpad E40的电池问题
- 公网与私网隔离
- Delphi和C++数据类型
- 存储过程
- 修复ubuntu10.10启动
- Qt数据库(一)简介