摘要：
var NewItem:TListItem; begin ListView1.Items.Clear; NewItem:=ListView1.Items.Add; NewItem.Caption:='01'; NewItem.SubItems.Add('商品名称'); NewItem.SubItems.Add('8折'); NewItem.SubIt... 阅读全文
摘要：
var frm: TForm2;//定义窗口类 begin PageControl1.activepage:=tabsheet1; if Panel1.ControlCount = 0 then begin frm := Tform2.Create(self); frm.Parent := Panel1; frm.BorderStyle := bsnone; ... 阅读全文