掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Listviewからドラッグ＆ドロップするには。 (ID：34679)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ListboxとListviewが同じフォーム上にあるのであれば、こういうことでしょうかね？ procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Source = ListView1; end; procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); begin if Source = ListView1 then begin if ListView1.Selected <> nil then begin ListBox1.Items.Add(ListView1.Selected.Caption); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.