ListView的列头怎么变灰了哦?

一个listview放在一个panle里,开始时是panle隐藏置后,使用调出时使panle置前可见并添加listview项目,但是listview的列头是灰色的没有显示出列头上的标题.为什么啊? 问题点数：20、回复次数：4Top

1 楼NewQger（Q哥）回复于 2006-03-03 14:52:11 得分 0

点一下列头就可以显示出标题了.Top

2 楼lantian0102（蓝天）回复于 2006-03-03 15:29:22 得分 20

可以看一下你的代码吗？Top

3 楼NewQger（Q哥）回复于 2006-03-03 16:19:49 得分 0

晕啊,代码好多哦,不是一个地方处理啊.  
  下边这个显示并执行查询:调用的是panle上的btnSearchOwner.Click   事件.  
  procedure   TFedit.edtDWKeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
      if   (Key   =   #13)   and   (trim(edtDW.Text)   <>   '')   then  
            begin  
                    edtSCZ.Text   :=   trim(edtDW.Text);  
                    pnlSearchOwner.BringToFront   ;  
                    pnlSearchOwner.Visible   :=   true;  
                    self.btnSearchOwner.Click   ;  
            end;  
  end;  
  Top

4 楼NewQger（Q哥）回复于 2006-03-03 16:24:18 得分 0

按钮的click事件.  
  procedure   TFedit.btnSearchOwnerClick(Sender:   TObject);  
  var  
      strSql   :String;  
      aItem:TlistItem;  
  begin  
      ownerQur:=gFunSearchData(strSql,10);  
      if   ownerQur.RecordCount   >   0   then  
      begin  
            ownerQur.Recordset.MoveFirst   ;  
            while   not   ownerQur.Eof   do  
            begin  
                  aItem   :=   lvSearchOwner.Items.Add;  
                  aItem.Caption   :=   ownerQur.FieldValues['OwnsdafId'];  
                  aItem.SubItems.add(ownedrQur.FieldValues['PosadfAddr']);  
                  aItem.SubItems.add(ownferQur.FieldValues['asasdf']);  
                  aItem.SubItems.add(owsnerQur.FieldValues['Al23fNum']);  
                  ownerQur.next   ;  
            end;  
            btnSel.Enabled   :=   true;  
      end;  
      end;  
  end;Top

相关问题

• ownerqur
• aitem
• panle
• listview
• fieldvalues
• 列头
• subitems
• 显示
• begin
• click

• 帖主：NewQger
• lantian0102

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载