怎样使鼠标右键按下时,鼠标的形状改变,直到放开? 怎样使鼠标右键按下时,鼠标的形状改变,直到放开?我做拖动时有用。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在MOUSEDOWN中判是否为RBUTTONDOWN?是则设置CURSOR,在MOUSEUP中也同样处理! 这是我写的代码,看一看:procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Button= mbRight then self.Cursor:= crCross;end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Button = mbRight then self.Cursor:= crdefault;end; 楼上,我的代码有什么问题?鼠标不变procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Button= mbRight then self.Cursor:= crhandpoint;end;procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Button = mbRight then self.Cursor:= crdefault;end; 你不用怎样做,凡支持拖拉的组件都有个dragicon的属性,你看看吧可能我说的dragicon属性书写有错 比如把一个ListBox的ITEM拖放到另一个ListBox的ITEM里,要怎样体现的变化?都用到哪些控件? 写错了,应该是以下: 比如把一个ListBox的ITEM拖放到另一个ListBox的ITEM里,要怎样体现鼠标的变化?都用到哪些事件? 有关TreeView与数据库单击事件 DELPHI里如何实现对象指针指向自己 如果将Listview中的内容保存到EXCEL中?? 求一递归算法,大家请进,分不购可以再加! 有关考试报名系统的 ReportMachine导出excel的问题 想知道delphi的最新技术,进来吧 Borland公司怎么这么烂??难道要学微软当年和亚都打官司一样吗?? 有谁知道存储过程中LIKE用法的! 统计下delphi应用开发支持的Android手机型号 delphi报表控件的问题. Query居然不执行Sql命令,奇怪???
Shift: TShiftState; X, Y: Integer);
begin
if Button= mbRight then
self.Cursor:= crCross;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
self.Cursor:= crdefault;
end;
Shift: TShiftState; X, Y: Integer);
begin
if Button= mbRight then
self.Cursor:= crhandpoint;
end;procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
self.Cursor:= crdefault;
end;
可能我说的dragicon属性书写有错