态:
If (Source is TLabel) and (State = dsDragMove) then
begin
source.DragIcon := ' New.Ico ';
Accept := True;
end
else
Accept := False;
当Accept=True时,目标控件可以响应OnDragDrop事件,用于确定拖动被放下后程序
如何进行处理。
●OnDragDrop事件处理过程的参数包括源控件
和光标位置。这些信息可用于处理方式的确定。
本篇文章来源于 87717 原文链接:87717/delphi/delphi_9716.html
●OnEndDrag事件是在拖动操作结束后由源控件来进行响应的,用于源控件进行相应的
处理。拖动操作结束既包括拖动放下被接受,也包括用户在一个不能接受放下的控件上释
放了鼠标。该事件处理过程的参数包括目标控件(Target)和放下位置的坐标。如果
Target=nil, 表示拖动项目没有被任何控件接受。
在第3节将介绍的文件拖放移动、拖放拷贝操作中,如果操作成功,则文件
列表框
应更新显示内容。下面这段程序用于实现这一功能。
procedure TFMForm.FileListEndDrag(Sender, Target: TObject; X, Y: Integer);
begin
if Target <> nil then FileList.Update;
end;
●除以上介绍的三个事件外,还有一个事件OnMouseDown也
常用于拖放操作的响应。
OnMouseDown虽然不是一个专门的拖放事件,但在人工模式下拖动的开始是在这一
事件的处理过程中实现的。
9.1.3拖放方法:人工方式
拖放方法有三个:
●BeginDrag:人工方式下开始一个拖动
●EndDrag:结束一个拖动
●Dragging:判断一个控件是否正被拖动
这三个方法都被源控件使用。
当DragMode置为dmManual时,拖动必须调用控件的BeginDrag方法才能开始。
●BeginDrag有一个布尔参数Immediate。如果输入参数为True,拖动立即开始,光标
改变到DragCursor的设置。如果输入参数为False,直到用户将光标移动了一定的距离
(5个象素点)后才改变光标,开始拖动。这就允许控件接受一个OnClick事件而并不开始
拖动操作。
●EndDrag方法中止一个对象的被拖动状态。它有一个布尔参数Drop。如果Drop设置
为True,被拖动的对象在当前位置放下(能否被接受由目标控件决定);如果Drop设置
为False,则拖动就地被取消。
下面一段程序表明当拖动进入一控制面板时拖动被取消。
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := False;
if (Source is TLabel) and (State = dsDragEnter) then
(Source as TLabel).EndDrag(False);
end;
●Draging方法判断一个控件是否正被拖动。在下面的例子中当用户拖动不同的检查框
时窗口改变为不同的颜色。
procedure TForm1.FormActivate(Sender: TObject);
begin
CheckBox1.DragMode := dmAutomatic;
CheckBox2.DragMode := dmAutomatic;
CheckBox3.DragMode := dmAutomatic;
end;
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if CheckBox1.Dragging then
Color := clAqua;
if CheckBox2.Dragging then
Color := clYellow;
if CheckBox3.Dragging then
Color := clLime;
end
;
本篇文章来源于 87717 原文链接:87717/delphi/delphi_9716_2.html
例子:
对于上述的鼠标操作,我举一个例子。
例如模拟“鼠过留痕”(单击第一下鼠标,鼠标不管移动到哪里都会留下痕迹,单击第二下,就不再留下痕迹)。
unit Unit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs;
type
TForm1=class(TForm)
procedure Fo