掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListViewでの複数行選択をマウスドラッグで実現するには？ (ID:15230)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>でも。。。やっぱりRowSelect:=Trueにしてあるんだし >行のどこからでも自然な感じにドラッグしたいのですが… ん〜そやな〜 var IsMouseDown: Boolean; procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin IsMouseDown := True; end; procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin IsMouseDown := False; end; procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var aItem: TListItem; begin aItem := ListView1.GetItemAt(X, Y); if aItem <> nil then begin if IsMouseDown then ListView1.Selected := aItem; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.