怎样使鼠标右键按下时,鼠标的形状改变,直到放开? 怎样使鼠标右键按下时,鼠标的形状改变,直到放开?我做拖动时有用。 解决方案 » 免费领取超大流量手机卡,每月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里,要怎样体现鼠标的变化?都用到哪些事件? 关于Incompatible types的问题 combobox有click事件吗 如何像鼠标单击任务栏程序一样,激活并显示程序界面? 如何复制文件夹 删除索引的sql怎么写? 关于updatesql的用法 文件指针不移动,怎么解决。 请教各位大虾! 评论一下这个架构如何? 缓存更新 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属性书写有错