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

名前

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

本文 ListBoxの内容を他のDelphiアプリにドラッグアンドドロップする処理を作っているのですが マウス操作を素早く行うとDragOverイベントが発生しなくなります。 リストボックスを配置して「DragMode」を「dmAutomatic」にして DragOverとMouseDownに下記の処理で確認します。 普段は問題無いのですが、このリストボックスをフォームの端や全体に広げた状態で マウス降下とフォーム外へマウスカーソルの移動を素早く行うと MouseDownのみ発生してDragOverイベントが発生しなくなります。 何か解決方法はありますでしょうか？ 環境 32bit VCLフォームアプリケーション Windows10 DephiXE5 procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin ListBox1.Items.Add('DragOver'); ListBox1.ItemIndex := ListBox1.Items.Count-1; end; procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox1.Items.Add('MouseDown'); ListBox1.ItemIndex := ListBox1.Items.Count-1; end;