掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListViewのセル選択 (ID：26328)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
動作確認はしてませんが下記のような感じでいけると思います。 implementation uses CommCtrl; procedure TForm1.lvControlClick(Sender: TObject); var wCtrl : TListView; wStruct: TLVHitTestInfo; begin // 初期化 wCtrl:= TListView(Sender); FillChar(wStruct, SizeOf(TLVHitTestInfo), 0); // マウスカーソルの座標を取得 GetCursorPos(wStruct.pt); // スクリーン座標からクライアント座標に変換 wStruct.pt:= wCtrl.ScreenToClient(wStruct.pt); // 選択された項目の判定 if wCtrl.Perform(LVM_SUBITEMHITTEST, 0, LPARAM(@wStruct)) >= 0 then with wStruct do ShowMessage(Format('%d行%d列目', [iItem + 1, iSubItem + 1])); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.