procedure Tmain.Timer3Timer(Sender: TObject);
begin
fall;
end;
、、、、、、、、
procedure Tmain.FormCreate(Sender: TObject);
begin
xa:=1;
main.ListView1.Columns.Add.Caption:=main.adotable2.Fields[1].FieldName; //取出标题
main.ListView1.Columns.Add.Caption:=main.adotable2.Fields[3].FieldName; //取出标题
listview1.Column[0].Width:=200;
listview1.Column[1].width:=100;
fall;
end;
begin
fall;
end;
、、、、、、、、
procedure Tmain.FormCreate(Sender: TObject);
begin
xa:=1;
main.ListView1.Columns.Add.Caption:=main.adotable2.Fields[1].FieldName; //取出标题
main.ListView1.Columns.Add.Caption:=main.adotable2.Fields[3].FieldName; //取出标题
listview1.Column[0].Width:=200;
listview1.Column[1].width:=100;
fall;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货