对于一个没有OnMouseDown的控件再不改变控件的前提下,如何处理ONMouseDown?谢谢 重载控件的WndProc方法,让它相应WM_LBUTTONDOWN消息。只要是从TControl继承的,都有这个方法。这算不算修改控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } FOldWndProc: TWndMethod; procedure NewWndProc(var Msg: TMessage); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.FormCreate(Sender: TObject);begin FOldWndProc := Edit1.WindowProc; Edit1.WindowProc := NewWndProc;end;procedure TForm1.NewWndProc(var Msg: TMessage);begin if Msg.Msg = WM_LBUTTONDOWN then Caption := 'MouseDown!'; FOldWndProc(Msg);end;procedure TForm1.Button1Click(Sender: TObject);begin Caption := 'Click!';end;end. 本人求购屏幕画笔源代码 用AdoQuery调用SqlServer的带参数的存储过程,参数类型是varchar,怎么当参数中有中文时会自动把参数截断了 《DELPHI 7高效数据库程序设计》李维 如何在Delphi4 BDE中配置Access数据库 关于ClipBoard。请帮忙! 自动编号生成的问题.在线等!!! 招聘兼职DELPHI程序员 delphi语句的写法..... 谁做过网络麻将的程序 ??????各位高手,数据库应用程序安装过程中关于数据库路径动态设置的问题?????????? 如何发布有关数据库管理的应用程序? 关于用socket编程来实现锁定局域网计算机的方法,请教高手!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
FOldWndProc: TWndMethod;
procedure NewWndProc(var Msg: TMessage);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.FormCreate(Sender: TObject);
begin
FOldWndProc := Edit1.WindowProc;
Edit1.WindowProc := NewWndProc;
end;procedure TForm1.NewWndProc(var Msg: TMessage);
begin
if Msg.Msg = WM_LBUTTONDOWN then
Caption := 'MouseDown!';
FOldWndProc(Msg);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := 'Click!';
end;end.