패널이 그리드 스크롤바 아래에 표시됩니다.

Question

저는 프로젝트에서 Windows 10 테마를 사용하고 있는데, 다음과 같은 사실을 눈치 챘습니다 : 그리드 스크롤바 아래에 그리드의 가장자리에있는 패널, 이 이미지가 있습니다. :

나는 VCL의 행동, 또는 격자를 변경하거나 동작을 스크롤하지 않았습니다.

PAS 파일 :

unit Unit1; 

interface 

uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, 
    Datasnap.DBClient, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls; 

type 
    TForm1 = class(TForm) 
    Panel1: TPanel; 
    DbGrid: TDBGrid; 
    Panel2: TPanel; 
    ClientDataSet: TClientDataSet; 
    DataSource1: TDataSource; 
    ButtonAdd: TButton; 
    ShowPanel: TButton; 
    ClientDataSetname: TStringField; 
    ClientDataSetaddress: TStringField; 
    procedure ButtonAddClick(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure ShowPanelClick(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.ButtonAddClick(Sender: TObject); 
begin 
    ClientDataset.Append; 
    ClientDataSetname.AsString := 'Test name'; 
    ClientDataSetaddress.AsString := 'Test address'; 
    ClientDataset.Insert; 
end; 

procedure TForm1.ShowPanelClick(Sender: TObject); 
begin 
    if Panel2.Visible then 
    Panel2.Visible := False 
    else 
    Panel2.Visible := True; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    ClientDataset.CreateDataSet; 
end; 

end. 

DFM 파일 :

object Form1: TForm1 
    Left = 0 
    Top = 0 
    Caption = 'Form1' 
    ClientHeight = 201 
    ClientWidth = 555 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'Tahoma' 
    Font.Style = [] 
    OldCreateOrder = False 
    OnCreate = FormCreate 
    PixelsPerInch = 96 
    TextHeight = 13 
    object Panel1: TPanel 
    Left = 460 
    Top = 0 
    Width = 95 
    Height = 201 
    Align = alRight 
    TabOrder = 0 
    object ButtonAdd: TButton 
     Left = 10 
     Top = 16 
     Width = 75 
     Height = 25 
     Caption = 'ButtonAdd' 
     TabOrder = 0 
     OnClick = ButtonAddClick 
    end 
    object ShowPanel: TButton 
     Left = 10 
     Top = 47 
     Width = 75 
     Height = 25 
     Caption = 'ShowPanel' 
     TabOrder = 1 
     OnClick = ShowPanelClick 
    end 
    end 
    object DbGrid: TDBGrid 
    Left = 0 
    Top = 0 
    Width = 460 
    Height = 201 
    Align = alClient 
    DataSource = DataSource1 
    TabOrder = 1 
    TitleFont.Charset = DEFAULT_CHARSET 
    TitleFont.Color = clWindowText 
    TitleFont.Height = -11 
    TitleFont.Name = 'Tahoma' 
    TitleFont.Style = [] 
    Columns = < 
     item 
     Expanded = False 
     FieldName = 'name' 
     Visible = True 
     end 
     item 
     Expanded = False 
     FieldName = 'address' 
     Visible = True 
     end> 
    end 
    object Panel2: TPanel 
    Left = 0 
    Top = 160 
    Width = 185 
    Height = 41 
    Caption = 'panel2' 
    TabOrder = 2 
    Visible = False 
    end 
    object ClientDataSet: TClientDataSet 
    Aggregates = <> 
    Params = <> 
    Left = 216 
    Top = 104 
    object ClientDataSetname: TStringField 
     FieldName = 'name' 
     Size = 50 
    end 
    object ClientDataSetaddress: TStringField 
     FieldName = 'address' 
     Size = 50 
    end 
    end 
    object DataSource1: TDataSource 
    DataSet = ClientDataSet 
    Left = 152 
    Top = 88 
    end 
end 

버그가 ShowPanel에 두 번째 클릭 후 발생합니다.

Answer 1

난 그냥 false로 그리드 seBorder 변경이 문제를 "해결"할 수있는 방법을 발견했습니다, 나는 모든 프로젝트에서 찾을 수 메모장을 ++ 사용 to : ": TDBGrid StyleElements = [seFont, seClient]"¹. seBorder을 false로 변경하면 스크롤바 스타일이 Windows 버전의 스크롤처럼 보이기 때문에이 문제를 해결할 수있는 더 좋은 방법은 아닌 것 같습니다.

---

¹ 시도 할 때 따옴표를 무시하십시오.

Answer 2

DBgrid를 패널의 부모로 정의 할 수 있습니다.

procedure TForm1.FormShow(Sender: TObject); 
begin 
    panel1.Parent := dbgrid1; 
    panel1.align := alBottom; 
end; 

Answer 3

실제로 유일한 방법은 DBgrid의 부모와 작업하는 것입니다. 나를 위해 이 예제에서는 잘 작동 : ¹ 및 교체 "을 TDBGrid"

procedure TForm1.adjustPanelTo(const aPanel: TPanel; aWcontrol: TWinControl); 
begin 
    if aPanel = nil then Exit; 
    if aWcontrol = nil then Exit; 
    if aWcontrol.Parent = nil then Exit; 

    aPanel.Parent := aWcontrol.Parent; 
    aPanel.Anchors := [akLeft, akTop]; 
    aPanel.Left := aWcontrol.Left + 1; 
    aPanel.Top := aWcontrol.Top + aWcontrol.ClientHeight - aPanel.Height; 
    aPanel.BringToFront; 
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    adjustPanelTo(Panel1, DBGrid1); 
end;