想写一个TShape的控件,当Shape是圆时,鼠标移到圆上光标才变成手。大家帮帮忙。 TShape的控件,设置了Cursor为crHandPoint。当Shape是圆时,鼠标移到设计时的方形上,鼠标就已经变成手,我想做一个鼠标移到圆上光标才变成手的控件。该怎么做?各位,请帮帮忙。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 动态设定不可以吗?在TShape的OnMouseMove事件中加上Shape1.Cursor := crHandPoint;这样是不是你想要的? unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Panel1: TPanel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin Panel1.Color := clRed; Panel1.Cursor := crHandPoint; Panel1.SetBounds(50, 80, 100, 100); Panel1.BevelOuter := bvNone;end;procedure TForm1.Button1Click(Sender: TObject);var region: THandle;begin region := CreateEllipticRgn(0, 0, 100, 100); SetWindowRgn(Panel1.Handle, region, True);end;end. 楼上说的是用Panel.Panel有Handle,但是TShape是没有Handle的,因此用不成.而且用SetWindowRgn将Panel设置为一个象素的正弦波时,显示会出见断断续续的问题. 我的程序加上VclSkin之后,关闭程序报地址错误。 delphi分组算法 500分求平衡二叉树的相关源码.. 谢谢~ 新手问题: 请问快捷菜单是怎么设置? 关于将dbgrid的内容转换成网页的问题,UP有分 组件问题 请问怎么安装FastReport!!!!哪里有注册版的下载 救急,救急 窗口函数的疑问 ? 如何屏蔽错误对话框? 问什么dbgrideh少汇总了一行? 如何遍历一张表的所有字段?
在TShape的OnMouseMove事件中加上Shape1.Cursor := crHandPoint;
这样是不是你想要的?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Color := clRed;
Panel1.Cursor := crHandPoint;
Panel1.SetBounds(50, 80, 100, 100);
Panel1.BevelOuter := bvNone;
end;procedure TForm1.Button1Click(Sender: TObject);
var
region: THandle;
begin
region := CreateEllipticRgn(0, 0, 100, 100);
SetWindowRgn(Panel1.Handle, region, True);
end;end.
而且用SetWindowRgn将Panel设置为一个象素的正弦波时,显示会出见断断续续的问题.