关于一个鼠标钩子的问题. 比如我想在屏幕上创建一个隐藏区域.高200 宽200 鼠标X:200 y:200如果鼠标在此区域点击一下,将自动弹出一个信息框.?该如何实现?请给出代码或实例,并给满发. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 高手帮忙......>>>>>>>> 感激不尽, 例如下面的例子procedure TForm1.FormCreate(Sender: TObject);beginform1.Left:=screen.Width-form1.Width;form1.Top:=0;form1.AlphaBlend:=true;form1.AlphaBlendValue:=1;form1.BorderStyle:=bsnone;end;procedure TForm1.FormClick(Sender: TObject);beginshowmessage('hello');end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); beginform1.AlphaBlend:=true; form1.AlphaBlendValue:=1;form1.BorderStyle:=bsnone;end;procedure TForm1.FormClick(Sender: TObject); beginshowmessage( 'hehe');end;end.===============================以上代码满足你的要求,给分 抱歉,忘记说了,是服务端程序..我记得有个兄弟是写:rect 什么 D2009下 TIdCookieManager 为什么无效? 求助一个小问题 200分(续) 运行一用BDE的程序时产生"operation not applicable"的错误提示 CSDN显示是不是出现问题了,经常看看到内容的? 求教一个有关画图的问题! CPU卡的问题 ADODataSet中如何查询到其他用户更新的数据? 用Application Wizard写的程序与平常的不同? 如何把图片格式的文件放入Image字段呢? 【版务】Delphi版即将切换新版模式 在delphi中打开.txt文件并用table等控件显示
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Left:=screen.Width-form1.Width;
form1.Top:=0;
form1.AlphaBlend:=true;
form1.AlphaBlendValue:=1;
form1.BorderStyle:=bsnone;
end;procedure TForm1.FormClick(Sender: TObject);
begin
showmessage('hello');
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
form1.AlphaBlend:=true;
form1.AlphaBlendValue:=1;
form1.BorderStyle:=bsnone;
end;procedure TForm1.FormClick(Sender: TObject);
begin
showmessage( 'hehe');
end;end.
===============================
以上代码满足你的要求,给分
我记得有个兄弟是写:rect 什么