掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.