25-06-2012, 06:39 PM
وعليكم السلام
هل هذا قصدك ؟؟
هل هذا قصدك ؟؟
كود :
procedure TForm1.FormCreate(Sender: TObject);
var i:byte;
begin
ListView1.ViewStyle := vsReport;
for i := 0 to2 do
ListView1.Columns.Add ;
ListView1.Column[0].Width:=70;
ListView1.Column[1].Width:=25;
ListView1.Column[0].Caption:='اسم';
ListView1.Column[1].Caption:='هنا' ;
end;