问几个delphi的属性问题

Question

edit.begindrag(false,10);表面看应该是开始拖动里面的false,10参数本别对应什么？ 
procedure TDragForm.ListDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := True;
  if (Source = Edit1) and
    ((Sender as TCustomListBox).Items.IndexOf (Edit1.Text) >= 0) then
    Accept := False;
end
这个事件的accept起什么作用？state是做什么用的？

Answer 1

accept作用是，是否接受拖放，你自己弄一个试试便知

Answer 2

ACCEPT 为true   DragDown事件才会被触发拖放一个东西到list上，通过ondragover判断是否负责条件，accept为true.会改变光标为拖放光标，否则则是禁止光标，在dragdown时判断accept 为true则触发事件了