我曾经看过用windows消息可以实现但不知具体怎么做,谁能具体介绍一下,谢谢了
解决方案 »
- 200分求解决问题,进来看地址,2个题全给分,解决完立即结贴~~~~~~~~~~~~~~``~~~~~~~~~`~~~~~~~~~~~~~~``
- combobox,dbcombobox的用法问题
- 秀一秀,给图片上加半透明的批注
- 使用sendmessage传递数据遇到的问题
- 一张数据表转成另一张数据表的问题???
- 程序后台工作的问题
- 通过isapi来开发服务器软件的时候,如何同时返回图片和文字?
- 如何让Edit显示为空字符?(我是用ACCESS建的库)
- Delphi用什么控件能模拟浏览器请求,得到返回页面的html源代码
- 在dbgrid里的滚动条的颜色怎么设置?(我的可用分不够,可以到别的贴子上拿分)
- 看片三太可怜~~ 谁叫我和JJ是亲戚和片三是兄弟,都是亲淫呀~~~ 放100分给片三
- 关于INNO SETUP的安装问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TButton =class(StdCtrls.TButton)
procedure ButtonDblClick(var msg: TMessage); message WM_LBUTTONDBLCLK;
end;type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
{ TButton }procedure TButton.ButtonDblClick(var msg: TMessage);
begin
ShowMessage('ok');
end;end.
private
FOnDblClick: TNotifyEvent;
published
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
procedure DblClick(var Msg:TMessage);message WM_LBUTTONDBLCLK;
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Standard', [TMyButton]);
end;procedure TMyButton.DblClick(var Msg:TMessage);
begin
if Assigned(FOnDblClick) then FOnDblClick(Self);
end;end.