Question

如何使用delphi中用listbox控件实现多列显示

我想做一个简单的通讯录，第一列显示人名，第二列显示号码。一个Button把Editname和Editnum两个文本框的内容添加到listbox，一个Button把listbox中选定的删除。

Answer 1

ListBox并不能实现你所要的那样的分列功能的。如果你非只要这个实现只有这样，但是这样并不美观。
Function SString(Const HS:String; Const L:Integer):String;
begin
Result:=Stringofchar(' ',L-Length(Hs))+HS;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s: string;
begin
s1 := Edit1.Text ;
s2 := Edit2.Text;
S := SString(s1,15) + Sstring(s2,15);
ListBox1.Items.Add(S);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.DeleteSelected;
end;
结果如何你放到Delphi里试试就知道了。如果不满意再给我发消息。

Answer 2

用listview!!!