请指教

procedure TForm.ListViewDblClick(Sender: TObject);
var
  ListItem: TListItem;
begin
  // 你要的應該是底下這一行吧..
  ListItem:=ListView.GetItemAt(Mouse_X,Mouse_Y);
  if Assigned(ListItem) and ListItem.Selected then begin
    if Assigned(ListItem.Data) then begin
      // 執行對應的動作...
    end;
  end;
end;

你所写的我没有调试出来，请问mouse_x,mouse_y什么意思？我是说将所选择的listview的行列的值选出来。 a b c d e 1 2 3 4 5 6 7 8 9 10 11 11 12 12 13 如选择鼠标点击第三行第三列就把值12取出，点击第一行第三列就把值3选出的方法？

1. 一開始你就會把每個值的指標存在ListItem.Data中. 2. 定義二個Public變數Mouse_X, Mouse_Y, 在OnMouseMove時, 一直Update這個值。 3. 我的範例中, 是Double Click時觸發, 從你的例子中, 你要的值只是存放在ListItem.Caption. 那你只要ShowMessage(ListItem.Caption)就是那個值, 如果你的值是放在ListItem.Data, 則必須利用以下指令, Value:=Integer(ListItem.Data^); 取回對應的指標值, 而Value應該就是你要的結果。

也许我比较笨，可以给我作个例子看看吗？

不知道以下內容是不是能幫上你的忙..

[在FormCreate程式段]
ListItem:=ListView.Items.Add;
ListItem.Caption:='XXX';  // 把你要的資料依序放入Caption;    [在MouseMove程式段]
procedure TFM_Main.ListViewMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  ListItem: TListItem;
  Str: String;
begin
  // 將目前的滑鼠位置記錄下來..
  Mouse_X:=X;
  Mouse_Y:=Y;
  ListItem:=ListView.GetItemAt(Mouse_X,Mouse_Y);
  // 如果滑鼠移到小圖示上時, 改成Hand型的滑鼠游標。
  if Assigned(ListItem) then begin
    ListView.Cursor:=crHandPoint;
  end else begin
    ListView.Cursor:=crDefault;
  end;
end;    [在Double Click的程式段]
ListItem:=ListView.GetItemAt(Mouse_X,Mouse_Y);
if Assigned(ListItem) and ListItem.Selected then begin
  // 依你的需求, 似乎只要識別Caption的值。
  ShowMessage(ListItem.Caption);
end;