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

2024-12-03 20:03:44

推荐回答（2个）

回答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里试试就知闭基道了。如果不满意再给我发消息。

回答2：

用listview!!!