快捷搜索:

第九章-Delphi拖放编程(3)

9.2.2 接管拖动项目

一个控件能否接管拖动项目是由该控件的OnDragOver事故抉择的。在TabSet拖动中,主如果使用鼠标的位置进行判断。

procedure TForm1.TabSet1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

var

DropPos: Integer;

begin

if Source = TabSet1 then

begin

DropPos := TabSet1.ItemAtPos(Point(X, Y));

Accept := (DropPos > -1) and (DropPos-1) and (NewPos

您可能还会对下面的文章感兴趣: