DragOverイベントが発生しない場合がある (ID:149917)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 レスありがとうございます。 サンプルソースに入れて試したところ MouseDownイベント内で処理に時間がかかっても 処理終了後にAcceptが Trueの状態でDragOverイベントが発生するという理想通りの動作になりました。 BeginDragも試していたのですがBeginDragがあるならEndDragも必要だろうと色々やっていたのも動作に影響を与えていたようです。 本番の環境にも組み込んで試して見ます。 ありがとうございました。 procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Sender = Source; if Accept then begin ListBox1.Items.Add('Accept'); ListBox1.ItemIndex := ListBox1.Items.Count-1; end; end; procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin TListBox(Sender).BeginDrag(True); ListBox1.Items.Add('BeginDrag'); ListBox1.ItemIndex := ListBox1.Items.Count-1; end; Sleep(500); end; procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin // これを加えると動かなくなる //TListBox(Sender).EndDrag(True); ListBox1.Items.Add('EndDrag'); ListBox1.ItemIndex := ListBox1.Items.Count-1; end;