FileListBoxの右クリックメニューについて (ID:8579)

名前

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

本文 こっちの方がいいかも procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox1.ItemIndex:=(Y div ListBox1.ItemHeight); end;