procedure TForm1.tv1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
//
end;
其中Accept的默认值为True,所以可以拖动。
不写这个过程的话,没有Accept属性,当然不能接受了!
State: TDragState; var Accept: Boolean);
begin
//
end;
其中Accept的默认值为True,所以可以拖动。
不写这个过程的话,没有Accept属性,当然不能接受了!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货