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

名前

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

本文 TListView.DragMode := dmManual (デフォルト) にして・・・ procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Sender = Source; if Accept then begin // end; end; procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin TListBox(Sender).BeginDrag(True); end; end;