很简单的，关于列表框的问题。

Question

请问一下，怎样能通过简单的方法，获得在列表框中选的定的项？
有没有某个属性是专门用来存放用户所以选择项字符的？

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  showmessage(form1.ListBox1.Items.Strings[form1.ListBox1.ItemIndex]);
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject); 
var 
  i, MaxWidth: integer; 
begin 
  MaxWidth := 0; 
  for i := 0 to ListBox1.Items.Count - 1 do 
  if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then 
    MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]); 
  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0); 
end;