我在程序中响应对话框的 WM_LBUTTONDOWN 事件,但在LicsCtrl上时不起作用,要在哪里处理一下?
解决方案 »
- SetWindowPos函数的重载问题
- 关于 Debug Assertion Failed!
- 按最小化按钮,将窗口最小化到系统托盘(像QQ的操作)
- 在一个B类中如何根据成员变量Ax(指向B类的指针)来调用A类中的成员函数?
- Visual Assist 的实现原理?
- 我做了一个OCX控件,在ActiveX控件测试容器中运行正常,在网页上用就出现了问题
- 寻求医学图象DICOM文件的格式说明。
- 100分求教。如何在非正常退出之后,能够再自动重新打开自己。
- 为什么下面代码一直阻塞在GetQueuedCompletionStatus上?
- SOS,请求高手帮助!!如何在List Box中的OnCompareItem实现排序?
- 如何只通过DC(device context)得到与它相关的窗口信息
- 请问这个错误unexpected end of file found是怎么回事?
继承WM_LBUTTONDOWN事件
定义部分加入:
procedure ButtonMsg (var Message : TMessage);
代码部分加入:
procedure TForm1.ButtonMsg(var Message: TMessage);
begin
if message.Msg = WM_LBUTTONDOWN then Memo1.Lines.Add ('ButtonMsg');
LISTCTRL.Dispatch(message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
LISTCTRL.WindowProc := ButtonMsg;
end;