如何使用THeaderControl控件？

问题点数：15、回复次数：1Top

1 楼WuHeHai（风之影）回复于 2001-04-21 21:25:00 得分 15

可以看帮助嘛！  
  给你一个帮助中的例子  
  procedure   TForm1.FormCreate(Sender:   TObject);  
   
  var  
      HeaderSection:   THeaderSection;  
      I:   Integer;  
  begin  
      for   I   :=   0   to   4   do  
      begin  
          HeaderSection   :=   HeaderControl1.Sections.Add;  
          HeaderSection.Text   :=   'Text   Section   '   +   IntToStr(I);  
          HeaderSection.MinWidth   :=   length(HeaderSection.Text)   *   Font.Size;  
          //   Owner   draw   every   other   section  
          if   (I   mod   2   =   0)   then  
              HeaderSection.Style   :=   hsOwnerDraw  
          else  
              HeaderSection.Style   :=   hsText;  
   
      end;  
  end;  
   
  procedure   TForm1.HeaderControl1DrawSection(HeaderControl:   THeaderControl;  
      Section:   THeaderSection;   const   Rect:   TRect;   Pressed:   Boolean);  
  begin  
      with   HeaderControl.Canvas   do  
      begin  
          //   highlight   pressed   sections  
          if   Pressed   then  
              Font.Color   :=   clRed  
          else  
              Font.Color   :=   clBlue;  
          TextOut(Rect.Left   +   Font.Size,   Rect.Top   +   2,   'Owner   Drawn   text');  
   
      end;  
  end;Top

相关问题

• headersection
• headercontrol
• sections
• rect
• pressed
• font
• begin
• text

• 帖主：zzutrain
• WuHeHai

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