怎样在某一控件上隐藏鼠标 比如当鼠标滑过一richedit控件时不可见,所有鼠标事件也不起作用,滑出控件后恢复正常,有没有api函数或其他方法呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginself.Cursor:= crDefault;end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginbutton1.Cursor:=-1;end;end. label5上隐藏鼠标self.Label5.Cursor:=-1; 抢分!!!某某.cursor := -1;keke~~ UDL文件损坏了。怎么恢复?急!!! 请前辈解答,奇怪的数据库问题! 对文件读写 求sql或者其他方法我想达到这个目的该怎么 activexform怎样连接数据库? 请问:有人遇到过ntdll.dll报错的时候吗? 几个程序之间的相互控制 你们平时还上哪些其它的delphi论坛? 开始菜单中的"运行"不见了,如何让他显示出来?我知道要修改注册表,但是不记得是什么位置了? 关于dbnavigator控件应用上的一个问题,肯定给分。 急问~!!! 关于TWebBrowser的简单问题.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
self.Cursor:= crDefault;
end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button1.Cursor:=-1;
end;end.
self.Label5.Cursor:=-1;
某某.cursor := -1;
keke~~