第九章-Delphi拖放编程(3)
2017-02-06
29
第九章-Delphi拖放编程(3)2007-05-079.2.2 接收拖动项目 一个控件能否接收拖动项目是由该控件的OnDragOver事件决定的。在TabSet拖动中,主要是利用鼠标的位置进行判断。 procedure TForm1.TabSet1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);varDropPos: Inte...