Z zhousan Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-16 #3 var i:integer; youstring:string; i:=ListBox1.itemsindex; //当前选中的ID youstring:=listBox1.items;
Z zhousan Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-16 #4 搞错了。 i := ShowListBox.ItemIndex;应该是这个,多了个s,不好意思
Z zhbj Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-16 #5 var i:integer; youstring:string; i:=ListBox1.itemsindex; //当前选中的ID youstring:=listBox1.items.strings[1];
var i:integer; youstring:string; i:=ListBox1.itemsindex; //当前选中的ID youstring:=listBox1.items.strings[1];
A Avalon Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-16 #7 procedure TForm1.Button1Click(Sender: TObject); begin if ListBox1.ItemIndex=-1 then Exit; ShowMessage(ListBox1.Items[ListBox1.ItemIndex]); end; 如果你没有选择任何一个item ItemIndex的值就是-1
procedure TForm1.Button1Click(Sender: TObject); begin if ListBox1.ItemIndex=-1 then Exit; ShowMessage(ListBox1.Items[ListBox1.ItemIndex]); end; 如果你没有选择任何一个item ItemIndex的值就是-1