假设listbox1 中有100个integer 0..99， stringGrid colCount ＝2， rowCount1＝101， [1，1]..[1,101] 中有100个integer 也是0..99。 stringGrid1.heigh := 200 stringGrid1.Width := 200 请问有什么方法当我double click listbox中任何一个integer会在stringGrid中找到相对应的integer并且显示在200×200 的stringGrid中呢？ Thanx so much！

這樣嗎？

procedure TForm1.ListBox1.Click(Sender: TObject);
begin
  if ListBox1.ItemIndex <> -1 then
    StringGrid1.Cells[1, ListBox1.ItemIndex   1] := ListBox1.Items[ListBox1.ItemIndex];
end;

This is only the frist step. what i want is when double click the items in listbox1, e.g. 56 and then the corresponding number 56 in the stringgrid's cell will be selected automatically and show in the 200* 200 dialog . thanx

是這樣嗎(前面兩題)？

procedure TForm1.ListBox1.Click(Sender: TObject);
var
  sNo: string;
  iNo, iCol, iRow: integer;
begin
  iNo := ListBox1.ItemIndex;
  sNo := ListBox1.Items[ListBox1.ItemIndex];      stringGrid.Col := 1;
  stringGrid.Row := iNo   1;
end;

還有最後一點要顯示 200 x 200 的 StringGrid 是什麼意思？ 顯示在 Cell 還是？ 是有兩個 TStringGrid 嗎？ 200 x 200 的 Dialog 是？ -- 世界上為什麼會有貧窮？因為大部分人都不想和別人分享自己所擁有的 -- Mother Teresa