使用DBCTRL网格

Question

我正在使用TDBCtrl Grid，我只能看到一条记录来查看我必须滚动的下一条记录但是我设置了RowCount = 5。另外，我的dbgridCTRL只能允许TDBEdit或TEdit控件。我也希望显示静态文本。您能否建议如何在DBCTRL网格上显示标签。

这是目前的样子。 Rans Member等是staticText控件。但是我想同时显示多条记录。

object DBCtrlGrid1: TDBCtrlGrid
  Left = 4
  Top = 2
  Width = 215
  Height = 122
  AllowDelete = False
  AllowInsert = False
  DataSource = DSCredit
  PanelHeight = 122
  PanelWidth = 199
  TabOrder = 0
  RowCount = 1
  OnPaintPanel = DBCtrlGrid1PaintPanel
end

Answer 1

高度== PanelHeight * RowCount。宽度/列也一样。

您必须以某种方式设置面板和网格的大小，多个面板将适合网格的可见区域。如果面板尺寸与所有面板的总尺寸相同 - 那么就没有其他面板可见的位置。

PS。 x-ref https://stackoverflow.com/questions/20658435/

---

下面是控制网格内部控件的DFM示例。上面的DFM示例显示没有内部控件的空网格。

object Form9: TForm9
  Left = 0
  Top = 0
  Caption = 'Form9'
  ClientHeight = 390
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object grid1: TDBCtrlGrid
    Left = 48
    Top = 38
    Width = 217
    Height = 300
    PanelHeight = 100
    TabOrder = 0
    object pnl1: TPanel
      Left = 0
      Top = 16
      Width = 185
      Height = 41
      Caption = 'pnl1'
      TabOrder = 0
      object dbedt1: TDBEdit
        Left = 48
        Top = 11
        Width = 121
        Height = 21
        TabOrder = 0
      end
    end
  end
end