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

名前

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

本文 メニューを表示時に選択するならこうです procedure TForm1.PopupMenu1Popup(Sender: TObject); var APoint:TPoint; begin APoint:=ListBox1.ScreenToClient(PopupMenu1.PopupPoint); ListBox1.ItemIndex:=(APoint.Y div ListBox1.ItemHeight); end; です