unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  OnDrawCellイベント
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//
end;

end.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, 'a');
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  //固定セルでなければ
  if not(gdFixed in State) then begin
    //塗り潰し
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, 'a');
  end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsGradient;

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  OnDrawCellイベント
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := False;
  StringGrid1.DrawingStyle   := gdsGradient;

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  OnDrawCellイベント
//  DefaultDrawingの値がFalseなので，描画コードがないと，何も描画しない
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsGradient;
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  OnDrawCellイベント
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TplStringGrid = class(TStringGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo;

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//
//  ChangeComponentの使用にはusesにplChgCompoが必要(添付)
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 := TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.DrawingStyle   := gdsThemed;
  plStringGrid1.Options        := plStringGrid1.Options + [goDrawFocusSelected];

  plStringGrid1.FixedCols       := 1;
  plStringGrid1.FixedRows       := 1;
  plStringGrid1.ColCount        := 4;
  plStringGrid1.RowCount        := 4;
  plStringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  plStringGrid1.Cells[1,0] := '調査番号';
  plStringGrid1.Cells[2,0] := '都道府県';
  plStringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  plStringGrid1.Cells[1,1] := 'A-100';
  plStringGrid1.Cells[1,2] := 'A-200';
  plStringGrid1.Cells[1,3] := 'A-300';

  plStringGrid1.Cells[2,1] := '東京都';
  plStringGrid1.Cells[2,2] := '大阪府';
  plStringGrid1.Cells[2,3] := '京都府';

  plStringGrid1.Cells[3,1] := '500';
  plStringGrid1.Cells[3,2] := '800';
  plStringGrid1.Cells[3,3] := '300';
end;

{ TplStringGrid }

//=============================================================================
//  TStgingGridの継承元のDrawCellメソッド
//  テキストの描画が必要になると自動的に呼び出されて実行する
//=============================================================================
procedure TplStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
begin
  inherited;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TplStringGrid = class(TStringGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo;

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//
//  ChangeComponentの使用にはusesにplChgCompoが必要(添付)
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 := TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.DrawingStyle   := gdsThemed;
  plStringGrid1.Options        := plStringGrid1.Options + [goDrawFocusSelected];

  plStringGrid1.FixedCols       := 1;
  plStringGrid1.FixedRows       := 1;
  plStringGrid1.ColCount        := 4;
  plStringGrid1.RowCount        := 4;
  plStringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  plStringGrid1.Cells[1,0] := '調査番号';
  plStringGrid1.Cells[2,0] := '都道府県';
  plStringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  plStringGrid1.Cells[1,1] := 'A-100';
  plStringGrid1.Cells[1,2] := 'A-200';
  plStringGrid1.Cells[1,3] := 'A-300';

  plStringGrid1.Cells[2,1] := '東京都';
  plStringGrid1.Cells[2,2] := '大阪府';
  plStringGrid1.Cells[2,3] := '京都府';

  plStringGrid1.Cells[3,1] := '500';
  plStringGrid1.Cells[3,2] := '800';
  plStringGrid1.Cells[3,3] := '300';
end;

{ TplStringGrid }

//=============================================================================
//  TStgingGridの継承元のDrawCellメソッド
//  テキストの描画が必要になると自動的に呼び出されて実行する
//=============================================================================
procedure TplStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
begin
//  inherited;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TplStringGrid = class(TStringGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo;

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//
//  ChangeComponentの使用にはusesにplChgCompoが必要
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 := TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.DrawingStyle   := gdsThemed;
  plStringGrid1.Options        := plStringGrid1.Options + [goDrawFocusSelected];

  plStringGrid1.FixedCols       := 1;
  plStringGrid1.FixedRows       := 1;
  plStringGrid1.ColCount        := 4;
  plStringGrid1.RowCount        := 4;
  plStringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  plStringGrid1.Cells[1,0] := '調査番号';
  plStringGrid1.Cells[2,0] := '都道府県';
  plStringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  plStringGrid1.Cells[1,1] := 'A-100';
  plStringGrid1.Cells[1,2] := 'A-200';
  plStringGrid1.Cells[1,3] := 'A-300';

  plStringGrid1.Cells[2,1] := '東京都';
  plStringGrid1.Cells[2,2] := '大阪府';
  plStringGrid1.Cells[2,3] := '京都府';

  plStringGrid1.Cells[3,1] := '500';
  plStringGrid1.Cells[3,2] := '800';
  plStringGrid1.Cells[3,3] := '300';
end;

{ TplStringGrid }

//=============================================================================
//  TStgingGridの継承元のDrawCellメソッド
//  テキストの描画が必要になると自動的に呼び出されて実行する
//=============================================================================
procedure TplStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  uFmt : Cardinal;
begin
  //gdFixed(固定行または固定列)の場合
  if (gdFixed In AState) then begin
    //アライメンを指定
    uFmt := DT_CENTER or DT_SINGLELINE or DT_VCENTER;
    DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, ARect, uFmt);
  end else begin
    //第3列目はデフォルトの描画とする
    if ACol = 3 then begin
      inherited;
    end else begin
      //右寄せであるが，両端に10ドットの隙間をつける
      OffsetRect(ARect, -10, 0);
      //アライメンを指定
      uFmt := DT_RIGHT or DT_SINGLELINE or DT_VCENTER;
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, ARect, uFmt);
    end;
  end;
end;

end.

    //選択状態(gdSelected)のセルの描画
    if gdSelected in AState then begin
      //Rectの矩形領域内をグラデーションで塗り潰す
      GradientFillCanvas(Canvas,
                         GetShadowColor(clWhite, 0),
                         GetShadowColor(clGray, 45),
                         ARect,
                         gdVertical);

      //フォーカスの枠線を描画したくない場合
      //ただし，OptionsにgoDrawFocusSelectedが含まれていると無効
      Canvas.DrawFocusRect(ARect);
    end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TplStringGrid = class(TStringGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo, GraphUtil;

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//
//  ChangeComponentの使用にはusesにplChgCompoが必要(添付)
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 := TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.DrawingStyle   := gdsGradient;
  plStringGrid1.Options        := plStringGrid1.Options + [goDrawFocusSelected];

  plStringGrid1.FixedCols       := 1;
  plStringGrid1.FixedRows       := 1;
  plStringGrid1.ColCount        := 4;
  plStringGrid1.RowCount        := 4;
  plStringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  plStringGrid1.Cells[1,0] := '調査番号';
  plStringGrid1.Cells[2,0] := '都道府県';
  plStringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  plStringGrid1.Cells[1,1] := 'A-100';
  plStringGrid1.Cells[1,2] := 'A-200';
  plStringGrid1.Cells[1,3] := 'A-300';

  plStringGrid1.Cells[2,1] := '東京都';
  plStringGrid1.Cells[2,2] := '大阪府';
  plStringGrid1.Cells[2,3] := '京都府';

  plStringGrid1.Cells[3,1] := '500';
  plStringGrid1.Cells[3,2] := '800';
  plStringGrid1.Cells[3,3] := '300';
end;

{ TplStringGrid }

//=============================================================================
//  TStgingGridの継承元のDrawCellメソッド
//  テキストの描画が必要になると自動的に呼び出されて実行する
//
//  グラデーション関係の関数の使用には，usesにGraphUtilが必要
//=============================================================================
procedure TplStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  uFmt : Cardinal;
begin
  //gdFixed(固定行または固定列)の場合
  if (gdFixed In AState) then begin
    //アライメンを指定
    uFmt := DT_CENTER or DT_SINGLELINE or DT_VCENTER;

  //gdFixed(固定行または固定列)以外の場合
  end else begin

    //選択状態(gdSelected)のセルの描画
    if gdSelected in AState then begin
      //Rectの矩形領域内をグラデーションで塗り潰す
      GradientFillCanvas(Canvas,
                         GetShadowColor(clWhite, 0),
                         GetShadowColor(clGray, 45),
                         ARect,
                         gdVertical);
    end;
    //右寄せであるが，両端に10ドットの隙間をつける
    OffsetRect(ARect, -10, 0);
    //アライメントを指定
    uFmt := DT_RIGHT or DT_SINGLELINE or DT_VCENTER;
  end;

  Canvas.Font.Color  := clBlack;
  Canvas.Brush.Style := bsClear;
  Windows.DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, ARect, uFmt);
end;

end.

procedure TplStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  uFmt : Cardinal;
begin
  if gdSelected in AState then begin
    //Rectの矩形領域内をグラデーションで塗り潰す
    GradientFillCanvas(Canvas,
                       GetShadowColor(clWhite, 0),
                       GetShadowColor(clGreen, 40),
                       ARect,
                       gdVertical);
    Canvas.Font.Color := clBlack;
  end;

  //上記以外はデフォルトの描画
  inherited;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  StringGrid1 の OnDrawCell イベント処理
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var
    LRect   : TRect;
    LFormat : Cardinal;
 begin
   // TStringGrid.DefaultDrawing が True でテーマが有効な場合
   // セルの描画領域は左端に 4 ピクセルのマージンがある
   // TCanvas.FillRect は下端と右端の 1 ピクセルは描画範囲に含まれない
   // それらを調整した描画領域用の TRect を作成する
   SetRect(LRect, Rect.Left - 4, Rect.Top, Rect.Right + 1, Rect.Bottom + 1);

   // テキスト(文字列)の描画用の書式を指定
  LFormat := DT_LEFT or DT_SINGLELINE or DT_VCENTER;

  // 固定行は処理の対象がら除外
  if not (gdFixed in State) then begin
    if ACol = 1 then begin
      StringGrid1.Canvas.Brush.Color := clLime;
      StringGrid1.Canvas.FillRect(LRect);
      // セルのテキスト(文字列)を描画
      Windows.DrawText(StringGrid1.Canvas.Handle,
                       PChar(StringGrid1.Cells[ACol, ARow]),
                       -1,
                       Rect,
                       LFormat);
    end;

    if ACol = 2 then begin
      StringGrid1.Canvas.Brush.Color := clGray;
      StringGrid1.Canvas.FillRect(LRect);
      // セルのテキスト(文字列)を描画
      Windows.DrawText(StringGrid1.Canvas.Handle,
                       PChar(StringGrid1.Cells[ACol, ARow]),
                       -1,
                       Rect,
                       LFormat);
    end;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータを各セルに
//  セットしておく
//  コンボボックスの設定も実行
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  StringGrid1.ColCount        := 4;
  StringGrid1.FixedCols       := 1;
  StringGrid1.DefaultColWidth := 90;
  //ここまではオブジェクトインスペクタで設定してもよい

  //左端の列幅設定
  StringGrid1.ColWidths[0]    := 10;

  //テスト用の値をセット
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.RowCount := 4;
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';

  //コンポボッスの値をセット
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('東京都');
  ComboBox1.Items.Add('大阪府');
  ComboBox1.Items.Add('京都府');
  ComboBox1.Items.Add('青森県');
  ComboBox1.Items.Add('岩手県');
  ComboBox1.Items.Add('宮城県');
  ComboBox1.Items.Add('茨城県');
  ComboBox1.Items.Add('福島県');
  ComboBox1.Text := '';

  //コンボボックスは非表示とする
  ComboBox1.Visible := False;
  //コンボボックスの高さをTStringGridの行高さに合わせるためにcsOwnerFixedに
  //-5という値は，実行して適当に修正する
  ComboBox1.Style      := csOwnerDrawFixed;
  ComboBox1.ItemHeight := StringGrid1.DefaultRowHeight - 5;
  //見やすいように背景色を変更
  ComboBox1.Color := $00E0E0C0;
end;

//=============================================================================
//  TStringGridのOnDrawCellイベント
//
//  このイベント内でコンボボックスを指定列に表示する
//  コンボボックスを表示しても，フォーカス移動の処理は行っていない
//  コンボボックスの表示以外はデフォルトの描画
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  AStr : String;
begin
  AStr := StringGrid1.Cells[ACol, ARow];

  //入力フォーカスがあるセルの場合のみ処理
  if gdFocused in State then begin
    //コンボボックスを表示する列の番号は2
    if ACol = 2 then begin
      SetWindowPos(ComboBox1.Handle,
                   0,
                   Rect.Left + StringGrid1.Left + 1,
                   Rect.Top + StringGrid1.Top + 1,
                   Rect.Right - Rect.Left + 2,
                   Rect.Bottom - Rect.Top + 2,
                   SWP_NOZORDER or SWP_SHOWWINDOW);
      ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(AStr);
      ComboBox1.Show;
    end else begin
      if ComboBox1.Visible then ComboBox1.Visible := False;
    end;
  end;
end;

//=============================================================================
//  TStringGridのOnSelectCellイベント
//
//  コンボボックスで入力する列は編集不可にする
//  実際にはコンボボックスが表示されているため編集はできないので不要
//  つまり，参考コード
//=============================================================================
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if Acol = 2 then begin
    StringGrid1.Options := StringGrid1.Options - [goEditing]
  end else begin
    StringGrid1.Options := StringGrid1.Options + [goEditing];
  end;
end;

//=============================================================================
//  TComboBoxのOnDrawItemイベント
//
//  コンボボックスの高さをTStringGridの行の高さに合わせているため，行の高さが
//  高いと，コンボボックスのテキストが上端寄せで体裁がよくない
//  そのため，このイベントで再描画するようにした．本質的には不要
//
//  TStringGridのOnDrawCellイベント同様に，このイベント内にコードがなくてもデ
//  フォルトの描画は実行される
//=============================================================================
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  AStr : String;
  uFmt : Cardinal;
begin
  //文字列の描画位置をデフォルトから変更するので，それまでの描画を塗り潰す
  ComboBox1.Canvas.FillRect(Rect);

  //コンボボックスの各リストの値
  AStr := ComboBox1.Items[Index];

  //選択項目とそうでない項目ではフォントの色を変更
  if odSelected in State then begin
    ComboBox1.Canvas.Font.Color := clHighlightText;
  end else begin
    ComboBox1.Canvas.Font.Color := clWindowText;
  end;

  //アライメンを指定して文字列を描画
  uFmt := DT_LEFT or DT_SINGLELINE or DT_VCENTER;
  Rect.Left := Rect.Left + 3;
  Windows.DrawText(ComboBox1.Canvas.Handle, PChar(AStr), -1, Rect, uFmt);
end;

//=============================================================================
//  TComboBoxのOnChangeイベント
//  コンボボックスでItemが変更となったらTStringGridのセルに値をセット
//=============================================================================
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Text;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータをセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goEditing];
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.DefaultColWidth := 90;
  //左端の列幅設定
  StringGrid1.ColWidths[0]    := 10;

  StringGrid1.ColCount := 4;
  StringGrid1.RowCount := 5;

  //テスト用の値をセット(タイトル行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';
  StringGrid1.Cells[1,4] := 'A-400';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';
  StringGrid1.Cells[2,4] := '長野県';

  StringGrid1.Cells[3,1] := '5,000';
  StringGrid1.Cells[3,2] := '8,000';
  StringGrid1.Cells[3,3] := '3,000';
  StringGrid1.Cells[3,4] := '2,000';
end;

//=============================================================================
//  グリッドのデータの保存 1
//  CommaTextで保存
//  グリッドに読み込む際に，列または行単位で読み込める
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  AFilePath : String;
  SL        : TStringList;
  iRow      : Integer;
begin
  AFilePath := ExtractFilePath(ParamStr(0)) + '000_CommaText.txt';

  SL := TStringList.Create;
  try
    for iRow := 0 to StringGrid1.RowCount - 1 do begin
      SL.Add(StringGrid1.Rows[iRow].CommaText);
    end;
    //保存
    SL.SaveToFile(AFilePath);
  finally
    FreeAndNil(SL);
  end;
end;

//=============================================================================
//  グリッドにコンマテキストのデータを読み込む
//  列または行単位で読み込める
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  AFilePath : String;
  SL        : TStringList;
  i         : Integer;
  LColSL    : TStringList;
begin
  AFilePath := ExtractFilePath(ParamStr(0)) + '000_CommaText.txt';
  if not FileExists(AFilePath) then begin
    Application.MessageBox('ファイルがありません．', '情報', MB_OK);
    exit;
  end;

  for i := 0 to StringGrid1.RowCount - 1 do begin
    StringGrid1.Rows[i].Clear;
  end;
  StringGrid1.ColCount := StringGrid1.FixedCols + 1;
  StringGrid1.RowCount := StringGrid1.FixedRows + 1;
  StringGrid1.Refresh;

  Sleep(2000);
  //描画更新の一時停止
  StringGrid1.Rows[0].BeginUpdate;
  try
    SL := TStringList.Create;
    try
      //ファイルを読み込む
      SL.LoadFromFile(AFilePath);
      //列数(カンマの数+1)を取得
      LColSL := TStringList.Create;
      try
        LColSL.DelimitedText := SL[0];
        StringGrid1.ColCount := LColSL.Count;
      finally
        FreeAndNil(LColSL);
      end;
      //行数
      StringGrid1.RowCount := SL.Count;

      for i := 0 to SL.Count -1 do begin
        StringGrid1.Rows[i].Delimiter       := ',';
        StringGrid1.Rows[i].StrictDelimiter := True;
        StringGrid1.Rows[i].DelimitedText   := SL[i];
      end;
    finally
      FreeAndNil(SL);
    end;
  finally
    //描画更新を再開
    StringGrid1.Rows[0].EndUpdate;
  end;
end;

//=============================================================================
//  グリッドのデータの保存 2
//  Textプロパティで保存
//  グリッドに読み込む際に，セル単位で読み込むので，細かい制御が可能
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  AFilePath : String;
  SL        : TStringList;
  iRow      : Integer;
begin
  AFilePath := ExtractFilePath(ParamStr(0)) + '000_Text.txt';

  SL := TStringList.Create;
  try
    for iRow := 0 to StringGrid1.RowCount -1 do begin
      SL.Add(StringGrid1.Rows[iRow].Text);
    end;
    //行数または列数を先頭に記録しておく
    //ここでは行単位で記録したので，列数を記録
    //行数は，読み出した後で計算可能
    SL.Insert(0, IntToStr(StringGrid1.ColCount));
    SL.SaveToFile(AFilePath);
  finally
    FreeAndNil(SL);
  end;
end;

//=============================================================================
//  グリッドにTextプロパティで保存したデータを読み込む
//  行または列単位のデータごとに改行が入っているので注意
//  このサンプルプログラムでは，行単位のデータごとに改行が入っている
//=============================================================================
procedure TForm1.Button4Click(Sender: TObject);
var
  AFilePath : String;
  SL        : TStringList;
  AColCnt   : Integer;
  ARowCnt   : Integer;
  iRow      : Integer;
  iCol      : Integer;
  SLRow     : Integer;
begin
  AFilePath := ExtractFilePath(ParamStr(0)) + '000_Text.txt';
  if not FileExists(AFilePath) then begin
    Application.MessageBox('ファイルがありません．', '情報', MB_OK);
    exit;
  end;

  for iRow := 0 to StringGrid1.RowCount - 1 do begin
    StringGrid1.Rows[iRow].Clear;
  end;
  StringGrid1.ColCount := StringGrid1.FixedCols + 1;
  StringGrid1.RowCount := StringGrid1.FixedRows + 1;
  StringGrid1.Refresh;

  Sleep(2000);
  //描画更新の一時停止
  StringGrid1.Rows[0].BeginUpdate;
  try
    SL := TStringList.Create;
    try
      //ファイルを読み出して，先頭に保存してある列数の値を取り出す
      SL.LoadFromFile(AFilePath);
      AColCnt := StrToInt(SL[0]);
      SL.Delete(0);

      //グリッドの列と行を設定
      StringGrid1.ColCount := AColCnt;
      ARowCnt              := (SL.Count - AColCnt) div AColCnt;
      StringGrid1.RowCount := ARowCnt;

      //データの読み出し
      for iRow := 0 to ARowCnt - 1 do begin
        for iCol := 0 to AColCnt - 1 do begin
          SLRow := AColCnt * iRow + iCol;
          StringGrid1.Cells[iCol, iRow] := SL[SLRow];
        end;
        //Textプロパティで保存したデータには，行または列ごとに改行が入るので削除
        if iRow < ARowCnt then SL.Delete(SLRow);
      end;
    finally
      FreeAndNil(SL);
    end;
  finally
    //描画更新を再開
    StringGrid1.Rows[0].EndUpdate;
  end;
end;

end.

  StringGrid1.RowHeights[2] := -1; //固定行も含めて上から3行目を非表示にする
  StringGrid1.ColWidths[2]  := -1; //固定列も含めて左から3列目を非表示にする

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//protected部にアクセスするためのクラス宣言
type
  TMyGrid = class(TStringGrid);

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータをセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0] := 10;

  StringGrid1.ColCount := 3 + StringGrid1.FixedCols;
  StringGrid1.RowCount := 3 + StringGrid1.FixedRows;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  行の挿入
//  現在選択中の行の上に挿入
//  実際には，最後の行の下に追加して現在の行に移動する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ARowCnt : Integer;
  ARow    : Integer;
begin
  //現在の行位置
  ARow := StringGrid1.Row;

  //行挿入
  ARowCnt              := StringGrid1.RowCount + 1;
  StringGrid1.RowCount := ARowCnt;
  TMyGrid(StringGrid1).MoveRow(ARowCnt, ARow);

  //先頭行の前に挿入の場合
  //データ行が1行しかない場合，行の削除の後にデータが残っていることがある
  //そのための処理
  if ARowCnt = (StringGrid1.FixedRows + 2) then begin
    if ARow = (StringGrid1.FixedRows) then begin
      StringGrid1.Rows[StringGrid1.FixedRows].Clear;
    end;
  end;

  //TButtonから操作しているので，StringGridにフォーカスを戻す
  //TSpeedButton等から操作すれば不要
  StringGrid1.SetFocus;
end;

//=============================================================================
//  行の削除
//  現在選択中の行を削除
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  ARow : Integer;
begin
  //現在の行位置
  ARow := StringGrid1.Row;

  //FixesRows(固定行)のみだけにはできないので，データ行は必ず1行分残す
  if StringGrid1.RowCount = (StringGrid1.FixedRows + 1) then begin
    StringGrid1.Rows[ARow].Clear;
  end else begin
    //最後の行の場合
    //ヘルプに最後の行を削除にはRowCountプロパティを設定と書いてあるので従った
    if ARow = (StringGrid1.RowCount - 1) then begin
      StringGrid1.RowCount := StringGrid1.RowCount - 1;
    end else begin
      //行の削除実行
      TMyGrid(StringGrid1).DeleteRow(ARow);
      //フォーカス行が固定行のすぐ下の場合は，その行にフォーカスを戻しておく
      if ARow = StringGrid1.FixedRows then begin
        StringGrid1.Row := StringGrid1.FixedRows;
      end;
    end;
  end;

  //TButtonから操作しているので，StringGridにフォーカスを戻す
  //TSpeedButton等から操作すれば不要
  StringGrid1.SetFocus;
end;

//=============================================================================
//  列の挿入
//  現在選択中の列の左側に挿入
//  実際には，最後の列の下に追加して現在の列に移動する
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  AColCnt : Integer;
  ACol    : Integer;
begin
  //現在の列位置
  ACol := StringGrid1.Col;

  //列挿入
  AColCnt                            := StringGrid1.ColCount + 1;
  StringGrid1.ColCount               := AColCnt;
  StringGrid1.ColWidths[AColCnt - 1] := StringGrid1.DefaultColWidth;
  TMyGrid(StringGrid1).MoveColumn(AColCnt - 1, ACol);

  //先頭列の前に挿入の場合
  //データ列が1列しかない場合，列の削除の後にデータが残っていることがある
  //そのための処理
  if AColCnt = (StringGrid1.FixedCols + 2) then begin
    if ACol = (StringGrid1.FixedCols) then begin
      StringGrid1.Cols[StringGrid1.FixedCols].Clear;
    end;
  end;

  //TButtonから操作しているので，StringGridにフォーカスを戻す
  //TSpeedButton等から操作すれば不要
  StringGrid1.SetFocus;
end;

//=============================================================================
//  列の削除
//  現在選択中の列を削除
//=============================================================================
procedure TForm1.Button4Click(Sender: TObject);
var
  ACol : Integer;
begin
  //現在の行位置
  ACol := StringGrid1.Col;

  //FixesCols(固定列)のみだけにはできないので，データ列は必ず1列分残す
  if StringGrid1.ColCount = (StringGrid1.FixedCols + 1) then begin
    StringGrid1.Cols[ACol].Clear;
  end else begin
    //最後の列の場合
    //ヘルプに最後の列を削除にはColCountプロパティを設定と書いてあるので従った
    if ACol = (StringGrid1.ColCount - 1) then begin
      StringGrid1.ColCount := StringGrid1.ColCount - 1;
    end else begin
      //列の削除実行
      TMyGrid(StringGrid1).DeleteColumn(ACol);
      //フォーカス列が固定列のすぐ右の場合は，その列にフォーカスを戻しておく
      if ACol = StringGrid1.FixedCols then begin
        StringGrid1.Col := StringGrid1.FixedCols;
      end;
    end;
  end;

  //TButtonから操作しているので，StringGridにフォーカスを戻す
  //TSpeedButton等から操作すれば不要
  StringGrid1.SetFocus;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    OriginProc : TWndMethod;
    ScrollStyleFlag : Boolean;
    procedure GridSubClassProc(var message: TMessage);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータをセット
//  TStringGridのWindowProcを独自のものに変更
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  //StringGrid1の元のWindowProcを退避し，新しくサブクラス関数を設定
  OriginProc             := StringGrid1.WindowProc;
  StringGrid1.WindowProc := GridSubClassProc;
  //テスト用にフラグを設定しておく
  ScrollStyleFlag        := True;

  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options + [goThumbTracking];

  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 2001;
  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.DefaultColWidth := 70;

  //左端の列幅設定
  StringGrid1.ColWidths[0]    := 35;
  //スクロールした状態を把握するために，左端の列に番号を表示しておく
  for i := 1 to StringGrid1.RowCount - 1 do begin
    StringGrid1.Cells[0, i] := IntToStr(i);
  end;
end;

//=============================================================================
//  StringGrid1用のサブクラス関数
//=============================================================================
procedure TForm1.GridSubClassProc(var message: TMessage);
begin
  //フラグがFalseの時は元のWindowsProcを実行
  //このフラグはButton1クリックで切り替える
  if ScrollStyleFlag = False then begin
    OriginProc(message);
    exit;
  end;

  //マウスホイールからメッセージが来た時の処理
  //実は，これは通常のマウスホイールの処理
  if message.Msg = WM_MOUSEWHEEL then begin
    if TWMMouseWheel(message).WheelDelta > 0 then begin
      SendMessage(StringGrid1.Handle, WM_VSCROLL, SB_LINEUP, 0);
    end else begin
      SendMessage(StringGrid1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
    end;
    message.Result := 0;
  //マウスホイールからのメッセージ以外の場合
  //StringGrid1の元々のWindowProcを実行
  end else begin
    OriginProc(message);
  end;
end;

//=============================================================================
//  テスト用のフラグのセット
//  トグル操作となっている
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  ScrollStyleFlag := not ScrollStyleFlag;
end;

end.

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータをセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options + [goThumbTracking];

  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 2001;
  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.DefaultColWidth := 70;

  //左端の列幅設定
  StringGrid1.ColWidths[0]    := 35;
  //スクロールした状態を把握するために，左端の列に番号を表示しておく
  for i := 1 to StringGrid1.RowCount - 1 do begin
    StringGrid1.Cells[0, i] := IntToStr(i);
  end;
end;

//=============================================================================
//  TStringGridのOnMouseWheelDownイベント処理
//=============================================================================
procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  StringGrid1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
  Handled := True;
end;

//=============================================================================
//  TStringGridのOnMouseWheelUpベント処理
//=============================================================================
procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  StringGrid1.Perform(WM_VSCROLL, SB_LINEUP, 0);
  Handled := True;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: string);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//protected部にアクセスするためのクラス宣言
type
  TMyGrid = class(TStringGrid);

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goEditing];
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  セルが編集状態になった時に発生するイベント
//  インプレースエディタが有効になる
//  このインプレースエディタのハンドルに対して日本語IMEを設定
//=============================================================================
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
var
  InpEdit : HWND;
begin
  InpEdit := TMyGrid(StringGrid1).InplaceEditor.Handle;

  //列番号が2の時にのみ日本語入力を許可し，それ以外はOFFにする
  if (ACol = 2) and (InpEdit > 0) then begin
    SetImeMode(InpEdit, imHira);
  end else begin
    SetImeMode(InpEdit, imClose);
  end;
    Panel1.Caption := '';
end;

//=============================================================================
//  セルの値を編集すると発生するイベント
//  編集中の文字列を逐次表示
//=============================================================================
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
  Panel1.Caption := Value;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
  private
    { Private 宣言 }
    InpEdit       : TInplaceEdit;
    EditStartFlag : Boolean;
    OriginProc    : TWndMethod;
    procedure GridSubClassProc(var message: TMessage);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//protected部にアクセスするためのクラス宣言
type
  TMyGrid    = class(TStringGrid);
  TMyInpEdit = class(TInplaceEdit);


//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータセット
//TStringGridの派生コンポーネントで上記を実現するには、CanEditShowをオーバーライド（下記）
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //StringGrid1の元のWindowProcを退避し，新しくサブクラス関数を設定
  OriginProc             := StringGrid1.WindowProc;
  StringGrid1.WindowProc := GridSubClassProc;

  //セルが編集モードに入ったかのフラグ
  EditStartFlag := False;

  StringGrid1.DefaultDrawing := True;
  StringGrid1.Options        := StringGrid1.Options + [goEditing];
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  セルが編集状態になった時に発生するイベント
//  インプレースエディタが有効になる
//  編集開始の意味でEditStartFlagをTrueにする
//=============================================================================
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
  InpEdit := TMyGrid(StringGrid1).InplaceEditor;

  if (InpEdit <> nil) then begin
    //セルの背景色と枠線
    InpEdit.Brush.Color := clMoneyGreen;
    TMyInpEdit(InpEdit).BorderStyle := bsSingle;
      TMyInpEdit(inpEdit).SelStart := 0;

    EditStartFlag := True;
  end;
end;

//=============================================================================
//  StringGrid1用のサブクラス関数
//
//  インプレースエディタの編集開始の取得は，EditorModeプロパティでは早すぎる
//  [VK_F2]で編集モードに入った場合は，キャレットの位置の変更はしない
//  [Enter]とマウスクリックで編集モードになった場合のみ有効
//=============================================================================
procedure TForm1.GridSubClassProc(var message: TMessage);
begin
  //フラグがFalseの時は元のWindowsProcを実行
  OriginProc(message);


  //設定を実行したかの判定にEditStrarFlagを使用する
  if EditStartFlag then begin
    if (InpEdit <> nil) and (InpEdit.Visible) then begin
      //キャレットは文字列の先頭に
      TMyInpEdit(inpEdit).SelStart := 0;

      //フォントの設定
      TMyInpEdit(InpEdit).Font.Color := clTeal;
      TMyInpEdit(InpEdit).Font.Size  := 12;
      TMyInpEdit(InpEdit).Font.Style := TMyInpEdit(inpEdit).Font.Style + [fsBold];

      //設定完了
      EditStartFlag := False;
    end;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TplStringGrid = class(TStringGrid)
  protected
    function CanEditShow: Boolean; override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo;

{$R *.dfm}

//protected部にアクセスするためのクラス宣言
type
  TMyInpEdit = class(TInplaceEdit);

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 := TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.Options        := StringGrid1.Options + [goEditing];
  plStringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];

  plStringGrid1.FixedCols       := 1;
  plStringGrid1.FixedRows       := 1;
  plStringGrid1.ColCount        := 4;
  plStringGrid1.RowCount        := 4;
  plStringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  plStringGrid1.Cells[1,0] := '調査番号';
  plStringGrid1.Cells[2,0] := '都道府県';
  plStringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  plStringGrid1.Cells[1,1] := 'A-100';
  plStringGrid1.Cells[1,2] := 'A-200';
  plStringGrid1.Cells[1,3] := 'A-300';

  plStringGrid1.Cells[2,1] := '東京都';
  plStringGrid1.Cells[2,2] := '大阪府';
  plStringGrid1.Cells[2,3] := '京都府';

  plStringGrid1.Cells[3,1] := '500';
  plStringGrid1.Cells[3,2] := '800';
  plStringGrid1.Cells[3,3] := '300';
end;

{ TplStringGrid }

//=============================================================================
//  TStringGridのprotected部のCanEditShow関数のoverride
//  CanEditShow関数は，セルが編集モードになった時に，自動的に呼ばれる関数
//  ここで各種の設定を行う
//
//  [VK_F2]で編集モードに入った場合は，キャレットの位置の変更はしない
//  [Enter]とマウスクリックで編集モードになった場合のみ有効
//=============================================================================
function TplStringGrid.CanEditShow: Boolean;
begin
  Result := inherited CanEditShow;

  if InplaceEditor <> nil   then  begin
    //セルの背景色
    InplaceEditor.Brush.Color := clMoneyGreen;

    //フォントの設定
    TMyInpEdit(InplaceEditor).Font.Color := clTeal;
    TMyInpEdit(InplaceEditor).Font.Size  := 12;
    TMyInpEdit(InplaceEditor).Font.Style :=
                              TMyInpEdit(InplaceEditor).Font.Style + [fsBold];

    //セルの枠線
    TMyInpEdit(InplaceEditor).BorderStyle := bsSingle;

    //キャレットの位置
    InplaceEditor.SelStart := 0;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.Options        := StringGrid1.Options - [goEditing];
  StringGrid1.Options        := StringGrid1.Options - [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options - [goRangeSelect];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.ColCount        := 4;
  StringGrid1.RowCount        := 4;
  StringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  StringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';

  StringGrid1.Cells[3,1] := '500';
  StringGrid1.Cells[3,2] := '800';
  StringGrid1.Cells[3,3] := '300';
end;

//=============================================================================
//  OnMouseDownイベント
//  クリックする度にTObjectの値を整数の1かnilに切り替えるトグル操作
//
//  TOjbectプロパティの使用方法は以下を参照
//  Halbow資料館の[Objects[]って何だろう]
//  ../../Halbow/Notes/N023.html
//=============================================================================
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  iCol : Integer;
  iRow : Integer;
begin
  if Button = mbLeft then begin
    iCol := StringGrid1.Col;
    iRow := StringGrid1.Row;

    if StringGrid1.Objects[iCol, iRow] = nil then begin
      StringGrid1.Objects[iCol, iRow] := TObject(1);
    end else begin
      StringGrid1.Objects[iCol, iRow] := nil;
    end;
  end;
end;

//=============================================================================
//  OnDrawCellイベント
//  TObjectの値が1ならば背景を塗り潰す
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if Integer(StringGrid1.Objects[ACol, ARow]) = 1 then begin
    StringGrid1.Canvas.Brush.Color := clHighlight;
    StringGrid1.Canvas.Font.Color  := clHighlightText;
    StringGrid1.Canvas.FillRect(Rect);

    StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2,
                                StringGrid1.Cells[ACol, ARow]);
  end;
end;

//=============================================================================
//  選択セルの一括処理例
//
//  [美号]
//  マウスドラッグ等で選択した連続した選択セルの範囲は，Selectionで取得できる
//  選択は，[Shift]キーを押したままであれば，左上と右下だけで範囲選択が可能
//
//  Selectionプロパティは，TGridRect構造体に値をセットして，コードでも連続し
//  たセルの選択ができる(OptionのgoRangeSelectがTrueの場合)
//  この時，goRowSelectがTrueだと行単位の選択が可能
//  このサンプルプログラムでは，このSelectionプロパティの機能との共存は面倒
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  iCol : Integer;
  iRow : Integer;
begin
  //描画更新の一時停止
  StringGrid1.Cols[0].BeginUpdate;

  try
    for iRow := 0 to StringGrid1.RowCount - 1 do begin
      for iCol := 0 to StringGrid1.ColCount -1 do begin
        //if StringGrid1.Objects[iCol, iRow] = TObject(1) then begin でも同じ
        if Integer(StringGrid1.Objects[iCol, iRow]) = 1 then begin
          StringGrid1.Cells[iCol, iRow] := '';
        end;
      end;
    end;
  finally
    //描画更新を再開
    StringGrid1.Cols[0].EndUpdate;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls, MlsGrid, plChgCompo;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  列数と列幅等を設定
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの機能を入れ替え
  StringGrid1 := TStringGrid(ChangeComponent(StringGrid1, TMLStringGrid));

  //折り返し表示をTrueに
  TMLStringGrid(StringGrid1).WordWrap := True;

  StringGrid1.DefaultDrawing := True;
  StringGrid1.Options        := StringGrid1.Options + [goEditing];

  StringGrid1.FixedCols        := 1;
  StringGrid1.FixedRows        := 1;
  StringGrid1.ColCount         := 4;
  StringGrid1.RowCount         := 4;
  StringGrid1.DefaultColWidth  := 120;
  StringGrid1.DefaultRowHeight := 60;

  //固定行と固定行の設定
  StringGrid1.ColWidths[0]  := 24;
  StringGrid1.RowHeights[0] := 24;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses GraphUtil;

{$R *.dfm}

//=============================================================================
//  テスト用に列数と列幅等を設定し，テスト用のデータを各セルにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //セルの枠線はOnDrawCellイベント内で描画するので，デフォルトの線は描画しない
  //このプロパティ以外はDelphi 2010のTStringGridのデフォルトのまま
  StringGrid1.Options := StringGrid1.Options - [goVertLine];
  StringGrid1.Options := StringGrid1.Options - [goHorzLine];
  StringGrid1.Options := StringGrid1.Options - [goDrawFocusSelected];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.DefaultColWidth := 90;
  //左端の列幅設定
  StringGrid1.ColWidths[0]    := 50;

  StringGrid1.ColCount := 4;
  StringGrid1.RowCount := 5;

  //テスト用の値をセット(タイトル行)
  StringGrid1.Cells[1,0] := '調査番号';
  StringGrid1.Cells[2,0] := '都道府県';
  StringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  StringGrid1.Cells[1,1] := 'A-100';
  StringGrid1.Cells[1,2] := 'A-200';
  StringGrid1.Cells[1,3] := 'A-300';
  StringGrid1.Cells[1,4] := 'A-400';

  StringGrid1.Cells[2,1] := '東京都';
  StringGrid1.Cells[2,2] := '大阪府';
  StringGrid1.Cells[2,3] := '京都府';
  StringGrid1.Cells[2,4] := '長野県';

  StringGrid1.Cells[3,1] := '5,000';
  StringGrid1.Cells[3,2] := '8,000';
  StringGrid1.Cells[3,3] := '3,000';
  StringGrid1.Cells[3,4] := '2,000';

  RadioGroup1.ItemIndex := 0;
end;

//=============================================================================
//  OnDrawCellイベント
//  固定行と固定列を除くセルの枠線の描画を変更
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  OriginRect : TRect;
  grfFlags   : Cardinal;
  edge       : Cardinal;
begin
  OriginRect := Rect;

  //固定行または固定列は除く
  if not (gdFixed In State) then begin
    if RadioGroup1.ItemIndex = 0 then begin
      InflateRect(OriginRect, 1, 1);
      StringGrid1.Canvas.Brush.Color := clRed;
      StringGrid1.Canvas.FrameRect(OriginRect);
    end else begin
      if RadioGroup1.ItemIndex = 1 then edge := EDGE_BUMP;
      if RadioGroup1.ItemIndex = 2 then edge := EDGE_ETCHED;
      if RadioGroup1.ItemIndex = 3 then edge := EDGE_RAISED;
      if RadioGroup1.ItemIndex = 4 then edge := EDGE_SUNKEN;
      grfFlags := BF_RECT;
      DrawEdge(StringGrid1.Canvas.Handle, OriginRect, edge, grfFlags);
    end;
  end;
end;

//=============================================================================
//  ラジオボタンをクリックしたら再描画
//=============================================================================
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  StringGrid1.Invalidate;
end;

end.

//-----------------------------------------------------------------------------
//  Delphi XE(UP1) ProのGrids.pas内のTCustomGrid.Paintメソッドの一部
//  LineColorがグリッド線の枠線の色
//-----------------------------------------------------------------------------
begin
  if UseRightToLeftAlignment then ChangeGridOrientation(True);

  if (FInternalDrawingStyle = gdsThemed) then
  begin
    if Win32MajorVersion >= 6 then
    begin
      LineColor := $F0F0F0; //LineColorがグリッドの枠線の色
      GetThemeColor(ThemeServices.Theme[teHeader], HP_HEADERITEM, HIS_NORMAL,
        TMT_EDGEFILLCOLOR, LColorRef);
      LFixedBorderColor := LColorRef;
    end

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TplStringGrid = class(TStringGrid)
  private
  protected
    function SelectCell(ACol, ARow: Longint): Boolean; override;
    procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo;

{$R *.dfm}

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータセット
//
//  ChangeComponentの使用にはusesにplChgCompoが必要(添付)
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 :=  TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.Options        := StringGrid1.Options - [goEditing];
  StringGrid1.Options          := StringGrid1.Options - [goDrawFocusSelected];
  plStringGrid1.Options        := StringGrid1.Options + [goThumbTracking];

  plStringGrid1.FixedCols       := 1;
  plStringGrid1.FixedRows       := 1;
  plStringGrid1.ColCount        := 4;
  plStringGrid1.RowCount        := 4;
  plStringGrid1.DefaultColWidth := 80;

  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 10;

  //テスト用の値をセット(固定行)
  plStringGrid1.Cells[1,0] := '調査番号';
  plStringGrid1.Cells[2,0] := '都道府県';
  plStringGrid1.Cells[3,0] := '結果値';

  //テスト用の値をセット
  plStringGrid1.Cells[1,1] := 'A-100';
  plStringGrid1.Cells[1,2] := 'A-200';
  plStringGrid1.Cells[1,3] := 'A-300';

  plStringGrid1.Cells[2,1] := '東京都';
  plStringGrid1.Cells[2,2] := '大阪府';
  plStringGrid1.Cells[2,3] := '京都府';

  plStringGrid1.Cells[3,1] := '500';
  plStringGrid1.Cells[3,2] := '800';
  plStringGrid1.Cells[3,3] := '300';

  //ActiveControlをStringGridにしてSelectCell関数を実行させる
  ActiveControl := plStringGrid1;
end;

{ TplStringGrid }

//=============================================================================
//  セルを選択した時に自動的に実行される関数
//=============================================================================
function TplStringGrid.SelectCell(ACol, ARow: Integer): Boolean;
begin
  //Focusがある時は通常の動作
  //これがないとセル選択時の動作が不正となる
  if Focused then begin
    Result := inherited SelectCell(ACol, ARow);
  end else begin
    Result := False;
  end;
end;

//=============================================================================
//  フォーカスを失った時の発生するメッセージ
//=============================================================================
procedure TplStringGrid.WMKillFocus(var Message: TWMKillFocus);
begin
  //編集中の時は通常の動作．それ以外は何もしない
  if InplaceEditor <> nil then begin
    Inherited;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls, Buttons;

type
  TplStringGrid = class(TStringGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
    procedure DrawCellBackground(const ARect: TRect; AColor: TColor;
      AState: TGridDrawState; ACol, ARow: Integer); override;
  public
    function GetCombineRect(ACol, ARow : Integer): TRect;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plStringGrid1 : TplStringGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses plChgCompo;

{$R *.dfm}

//=============================================================================
//  すぐにテストできるように，列数と列幅等を設定し，テスト用のデータセット
//
//  ChangeComponentの使用にはusesにplChgCompoが必要(添付)
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  AFileName : String;
  SL        : TStringList;
  i         : Integer;
begin
  //フォーム作成時にコンポーネントの入れ替え
  plStringGrid1 :=  TplStringGrid(ChangeComponent(StringGrid1, TplStringGrid));

  plStringGrid1.DefaultDrawing := True;
  plStringGrid1.Options        := StringGrid1.Options - [goEditing];
  StringGrid1.Options          := StringGrid1.Options + [goDrawFocusSelected];
  plStringGrid1.Options        := StringGrid1.Options + [goThumbTracking];

  plStringGrid1.FixedCols        := 1;
  plStringGrid1.FixedRows        := 2;
  plStringGrid1.DefaultColWidth  := 70;
  plStringGrid1.DefaultRowHeight := 20;
  //左端の列幅設定
  plStringGrid1.ColWidths[0]  := 18;

  //表示データをファイルから読み込む
  AFileName := ExtractFilePath(Application.ExeName) + 'ATest_100000.txt';
  SL := TStringList.Create;
  try
    SL.LoadFromFile(AFileName);
    plStringGrid1.ColCount := 5;
    plStringGrid1.RowCount := SL.Count;

    plStringGrid1.Rows[0].CommaText := ',' + SL[0];
    for i := 2 to SL.Count - 1 do begin
      plStringGrid1.Rows[i].CommaText := ',' + SL[i];
    end;
  finally
    FreeAndNil(SL);
  end;
end;

{ TplStringGrid }

//=============================================================================
//  文字列(テキスト)と枠線の描画用関数
//  文字列または枠線を描画する必要がある時に自動的に実行される
//=============================================================================
procedure TplStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LRect   : TRect;
  uFmt    : Cardinal;
  StrText : String;
begin
  LRect := ARect;
  LRect := GetCombineRect(ACol, ARow);

  //固定セルの時はデフォルト描画を実行しない
  //アライメンを指定して文字列を描画
  if gdFixed in AState then begin
    uFmt := DT_CENTER or DT_SINGLELINE or DT_VCENTER;

    //列番号も行番号も大きい値で指定しないと，背景描画で塗り潰されてしまう
    if (ACol = 1) and (ARow = 1) then StrText := '番号';
    if (ACol = 3) and (ARow = 0) then StrText := '食品';
    if (ACol = 2) and (ARow = 1) then StrText := '分類';
    if (ACol = 3) and (ARow = 1) then StrText := '食品名';
    if (ACol = 4) and (ARow = 1) then StrText := 'キロカロリー';
    Windows.DrawText(Canvas.Handle, PChar(StrText), -1, LRect, uFmt);
  end else begin
    inherited DrawCell(ACol, ARow, LRect, AState);
  end;
end;

//=============================================================================
//  背景の描画用関数
//  背景を描画する必要がある時に自動的に実行される
//=============================================================================
procedure TplStringGrid.DrawCellBackground(const ARect: TRect;
  AColor: TColor; AState: TGridDrawState; ACol, ARow: Integer);
var
  LRect : TRect;
begin
  LRect := ARect;
  LRect := GetCombineRect(ACol, ARow);

  inherited DrawCellBackground(LRect, AColor, AState, ACol, ARow);
end;

//=============================================================================
//  列または行を結合した時のTRect構造体の値を返す関数
//  背景描画とセル内容描画でも使用するので関数にした
//=============================================================================
function TplStringGrid.GetCombineRect(ACol, ARow : Integer): TRect;
begin
  //列の結合
  //1行目の3から4列目を結合
  if ARow = 0 then begin
    if (ACol >= 2) and (ACol <= 3) then begin
      UnionRect(Result, CellRect(2, ARow), CellRect(3, ARow));
    end;
  end;

  //行の結合
  //1列目と2列目と5列目は1から2行目を結合
  if (ACol = 0) or (ACol = 1) or (ACol = 4) then begin
    if (ARow >= 0) and (ARow <= 1) then begin
      UnionRect(Result, CellRect(ACol, 0), CellRect(ACol, 1));
      //以下でも結果は同じ
      //Result.Top    := CellRect(ACol, 0).Top;
      //Result.Bottom := CellRect(ACol, 1).Bottom;
    end;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls, ComObj, Excel2000;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private 宣言 }
    ExcelObj   : OleVariant;
    WorkBook   : OleVariant;
    WorkSheet  : OleVariant;
    function xlfToA1(Row, Col: Integer): String;
    function xlfToR1C1(A1: String): TPoint;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  列幅等を設定
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goEditing];
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options + [goColSizing];
  StringGrid1.Options        := StringGrid1.Options + [goRowSizing];
  StringGrid1.Options        := StringGrid1.Options + [goThumbTracking];

  StringGrid1.FixedCols       := 1;
  StringGrid1.FixedRows       := 1;
  StringGrid1.DefaultColWidth := 70;
  //左端の列幅設定
  StringGrid1.ColWidths[0]    := 20;
end;

//=============================================================================
//  フォームを表示したら，テスト用にエクセルを起動
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
var
  BookName : String;
begin
  ExcelObj := CreateOleObject('Excel.Application');
  ExcelObj := ExcelObj.Application;

  //ブックを開く
  BookName := ExtractFilePath(Application.ExeName) + 'ATestBook.xls';
  WorkBook := ExcelObj.Workbooks.Open(BookName);
  //シートオブジェクトを定義
  WorkSheet := WorkBook.WorkSheets[1];

  //表示
  ExcelObj.Visible                  := True;
  ExcelObj.ActiveWindow.WindowState := xlMaximized;
end;

//=============================================================================
//  フォームを閉じる時はエクセルも閉じる
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    if GetActiveOleObject('Excel.Application') <> nil then begin
      //変更なしにしてしまう(保存確認ダイアログを表示しない)
      WorkBook.Saved := True;

      WorkBook.close;
      WorkBook  := unAssigned;
      WorkSheet := unAssigned;
      ExcelObj := unAssigned;
      ExcelObj.Quit;
    end;
  except
    if not VarIsEmpty(ExcelObj) then begin
      ExcelObj.Quit;
    end;
  end;
end;

//=============================================================================
//  エクセルからデータを読み込む
//  高速処理のためにバリアント配列を使用
//
//  [参考]
//  Delphi から、新しいブックを作成するを自動化する方法
//  [マイクロソフト サポートオンライン]
//  http://support.microsoft.com/kb/231614/ja
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelColRow : TPoint;
  StartCell   : String;
  EndCell     : String;
  StartCol    : Integer;
  StartRow    : Integer;
  OleArray    : OleVariant;
  iReadRowCnt : Integer;
  iReadColCnt : Integer;
  i           : Integer;
  j           : Integer;
  iRow        : Integer;
  iCol        : Integer;
begin
  if VarIsEmpty(ExcelObj) then exit;

  //読み出すエクセルの左上と右下のセル
  StartCell := 'A1';
  EndCell   := 'D1001';

  //エクセルの左上のセルを行番号と列番号を取得
  ExcelColRow := xlfToR1C1(StartCell);
  StartRow    := ExcelColRow.Y;
  StartCol    := ExcelColRow.X;

  //エクセルの右下のセルを行番号と列番号を取得して読み出す行数と列数を計算
  ExcelColRow := xlfToR1C1(EndCell);
  iReadRowCnt := ExcelColRow.Y - StartRow + 1;
  iReadColCnt := ExcelColRow.X - StartCol + 1;

  try
    //バリアント配列を作成
    OleArray := VarArrayCreate([0, iReadRowCnt - 1, 0, iReadColCnt - 1], VarVariant);
    //エクセルのデータをバリアント配列に格納
    OleArray := WorkSheet.Range[StartCell, EndCell].Value;

    //StringGridの表示の更新を停止
    StringGrid1.Rows[0].BeginUpdate;

    //StringGridの行数と列数を設定
    StringGrid1.RowCount := iReadRowCnt + StringGrid1.FixedRows - 1;
    StringGrid1.ColCount := iReadColCnt + StringGrid1.FixedCols;

    //バリアント配列の値をStringGridのセルに代入
    for i := 1 to iReadRowCnt do begin
      iRow := i + StringGrid1.FixedRows - 2;
      for j := 1 to iReadColCnt do begin
        iCol := j + StringGrid1.FixedCols - 1;
        StringGrid1.Cells[iCol, iRow] := OleArray[i, j];
      end;
    end;
    //StringGridの表示更新
    StringGrid1.Rows[0].EndUpdate;
  finally
    //バリアント配列を空に
    VarClear(OleArray);
  end;
end;

//=============================================================================
//  StringGridに表示中のデータをエクセルに出力
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  iSendRowCnt : Integer;
  iSendColCnt : Integer;
  ExcelColRow : TPoint;
  StartCell   : String;
  EndCell     : String;
  StartCol    : Integer;
  StartRow    : Integer;
  OleArray    : Variant;
  SendList    : TStringList;
  TempList    : TStringList;
  i           : Integer;
  j           : Integer;
begin
  if VarIsEmpty(ExcelObj) then exit;

  //出力するStringGridの行数と列数
  //+ 1はタイトル行分
  //固定列も出力したい場合は，その列数を追加する
  iSendRowCnt := StringGrid1.RowCount - StringGrid1.FixedRows + 1;
  iSendColCnt := StringGrid1.ColCount - StringGrid1.FixedCols;

  //エクセル側の書き出しの最初のセル
  StartCell := 'A1';

  //そのセルの行と列番号を取得
  ExcelColRow := xlfToR1C1(StartCell);
  StartRow    := ExcelColRow.Y;
  StartCol    := ExcelColRow.X;

  //取得した値からエクセル側の書き出し最終セルを計算
  EndCell := xlfToA1(StartRow + iSendRowCnt -1 , StartCol + iSendColCnt - 1);

  SendList := TStringList.Create;
  TempList := TStringList.Create;
  try
    //バリアント配列を作成
    OleArray := VarArrayCreate([0, iSendRowCnt - 1, 0, iSendColCnt - 1], VarVariant);

    //エクセルの対象セル範囲のデータをクリア
    Worksheet.Range[StartCell, EndCell].Clear;
    Sleep(500);

    //StringGridは行または列単位で処理した方が速いのでTStringListに格納して処理
    for i := 0 to iSendRowCnt - 1 do begin
      SendList.Add(StringGrid1.Rows[i + StringGrid1.FixedRows - 1].CommaText);
    end;

    //バリアント配列に格納していく
    for i := 0 to iSendRowCnt - 1 do begin
      //Textプロパティでは改行が追加されるのでうまくいかない
      TempList.CommaText := SendList[i];
      for j := 0 to iSendColCnt - 1 do begin
        OleArray[i, j] := TempList[j + StringGrid1.FixedCols];
      end;
    end;

    //エクセルにバリアント配列データを送る
    Worksheet.Range[StartCell, EndCell].Value := OleArray;
    //エクセルの列幅どどう調整
    WorkSheet.Columns.AutoFit;
  finally
    //バリアント配列を空に
    VarClear(OleArray);
    FreeAndNil(SendList);
    FreeAndNil(TempList);
  end;
end;

//=============================================================================
//  A1形式のセルの番地をR1C1形式に変換する(絶対座標)
//
//  TPoint.x  列番号
//  TPoint.y  行番号
//  行列番号は1から(0からではないので注意)
//=============================================================================
function TForm1.xlfToR1C1(A1: String): TPoint;
var
  RC : OleVariant;
begin
  Result.x := 1;
  Result.y := 1;

  try
    RC       := ExcelObj.Application.ConvertFormula(A1, xlA1, xlR1C1, xlAbsolute);
    Result.x := StrToInt(System.Copy(RC, Pos('C',RC) + 1, Length(RC)));
    Result.y := StrToInt(System.Copy(RC, 2, Pos('C',RC) - 2));
  except
  end;
end;

//=============================================================================
//  R1C1形式のセルの番地をA1形式に変換する関数(絶対座標)
//
//  行列番号は1から(0からではないので注意)
//=============================================================================
function TForm1.xlfToA1(Row, Col: Integer): String;
var
  A  : OleVariant;
  RC : OleVariant;
begin
  Result := Unassigned;

  A := 'R' + IntToStr(Row) + 'C' + IntToStr(Col);
  try
    RC     := ExcelObj.Application.ConvertFormula(A, xlR1C1, xlA1, xlAbsolute);
    Result := RC;
  except
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Clipbrd;

{$R *.dfm}

//=============================================================================
//  列幅等を設定
//  テスト用にデータなしの表示
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options - [goEditing];
  StringGrid1.Options        := StringGrid1.Options + [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options + [goColSizing];

  StringGrid1.FixedCols        := 1;
  StringGrid1.FixedRows        := 1;
  StringGrid1.DefaultColWidth  := 70;
  StringGrid1.DefaultRowHeight := 20;
  //左端の列幅設定
  StringGrid1.ColWidths[0] := 18;

  //列数と行数を設定
  StringGrid1.ColCount := 5;
  StringGrid1.RowCount := 30
end;

//=============================================================================
//  コピー
//  クリップボードに，現在選択中のセルのデータをコピー
//  コピーするテキストはタブ形式
//  タブ形式であれば，エクセルにもセル単位で張り付けられる
//  このサンプルでは連続したセルのみが対象．飛び飛びのセルは扱わない
//
//  TStringListにデータを格納しているので，(連続した)選択範囲のみの保存も可能
//
//  usesにClipbrdが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  StartRow : Integer;
  EndRow   : Integer;
  StartCol : Integer;
  EndCol   : Integer;
  SL       : TStringList;
  ColList  : TStringList;
  i        : Integer;
  j        : Integer;
begin
  //現在選択中のセルの左上のセルと右下のセルの行番号と列番号を調査
  StartRow := StringGrid1.Selection.Top;
  EndRow   := StringGrid1.Selection.Bottom;
  StartCol := StringGrid1.Selection.Left;
  EndCol   := StringGrid1.Selection.Right;

  SL      := TStringList.Create;
  ColList := TStringList.Create;

  //デリミタの設定
  ColList.Delimiter       := Chr(VK_TAB);
  ColList.StrictDelimiter := True;

  try
    //行単位でタブ形式文字列を作成
    for i := StartRow to EndRow do begin
      //一度行全体を指定デリミタの文字列に変換
      StringGrid1.Rows[i].Delimiter       := Chr(VK_TAB);
      StringGrid1.Rows[i].StrictDelimiter := True;
      ColList.DelimitedText               := StringGrid1.Rows[i].DelimitedText;

      //列の処理
      //選択されていない列データは削除
      for j := StringGrid1.ColCount - 1 downto 0 do begin
        if (j > EndCol)   then ColList.Delete(j);
        if (j < StartCol) then ColList.Delete(j);
      end;
      SL.Add(ColList.DelimitedText);
    end;

    //クリップボードにコピー
    if SL.Count >0 then Clipboard.AsText := SL.Text;
  finally
    FreeAndNil(SL);
    FreeAndNil(ColList);
  end;
end;

//=============================================================================
//  貼り付け
//  クリップボードからデータを取得して，現在選択中のセルから貼りつける
//  エクセル同様，タブ形式の場合にのみ各セルに張り付ける
//  カンマ形式のデータはセパレータとして認識しない
//  現在の列数，行数を超えるデータは張り付けされない
//
//  usesにClipbrdが必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  StartRow : Integer;
  StartCol : Integer;
  SL       : TStringList;
  ColList  : TStringList;
  i        : Integer;
  j        : Integer;
begin
  //貼り付け開始セルの行と列番号取得
  StartRow := StringGrid1.Selection.Top;
  StartCol := StringGrid1.Selection.Left;

  SL       := TStringList.Create;
  ColList := TStringList.Create;

  //クリップボードからデータを取得
  SL.Text := Clipboard.AsText;

  //StringGridの表示更新を停止
  StringGrid1.Rows[0].BeginUpdate;
  try
    //1行づつ処理
    for i := 0 to SL.Count -1 do begin
      if (i + StartRow) < StringGrid1.RowCount then begin
        //デリミタの設定
        ColList.Delimiter       := Chr(VK_TAB);
        ColList.StrictDelimiter := True;
        ColList.DelimitedText   := SL[i];

        //セル単位でデータ代入
        for j := 0 to ColList.Count - 1 do begin
          if (j + StartCol) < StringGrid1.ColCount then begin
            StringGrid1.Cells[j + StartCol, i + StartRow] := ColList[j];
          end;
        end;
      end;
    end;
  finally
    //StringGridの表示更新
    StringGrid1.Rows[0].EndUpdate;

    FreeAndNil(SL);
    FreeAndNil(ColList);
  end;
end;

//=============================================================================
//  固定行，固定列を含め，全て消去
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to StringGrid1.RowCount -1 do begin
    StringGrid1.Rows[i].Clear;
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  列幅等を設定
//  テスト用にデータなしの表示
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options - [goEditing];
  StringGrid1.Options        := StringGrid1.Options - [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options + [goRangeSelect];
  StringGrid1.Options        := StringGrid1.Options + [goColSizing];
  StringGrid1.Options        := StringGrid1.Options + [goRowSizing];

  StringGrid1.FixedCols        := 1;
  StringGrid1.FixedRows        := 1;
  StringGrid1.DefaultColWidth  := 45;
  StringGrid1.DefaultRowHeight := 20;

  //列幅設定
  StringGrid1.ColWidths[0] := 88;
  StringGrid1.ColWidths[2] := StringGrid1.DefaultRowHeight + 35;

  //列数と行数を設定
  StringGrid1.ColCount := 6;
  StringGrid1.RowCount := 5;

  //テスト表示用のデータをセット
  //空表示では寂しいので
  StringGrid1.Cells[0, 0] := '';
  StringGrid1.Cells[1, 0] := '合計点';
  StringGrid1.Cells[2, 0] := '合否';
  StringGrid1.Cells[3, 0] := '数学';
  StringGrid1.Cells[4, 0] := '物理';
  StringGrid1.Cells[5, 0] := '社会';

  StringGrid1.Cells[0, 1] := '宮本 武蔵';
  StringGrid1.Cells[1, 1] := '145';
  StringGrid1.Cells[2, 1] := '';
  StringGrid1.Cells[3, 1] := '45';
  StringGrid1.Cells[4, 1] := '20';
  StringGrid1.Cells[5, 1] := '80';

  StringGrid1.Cells[0, 2] := '佐々木 小次郎';
  StringGrid1.Cells[1, 2] := '230';
  StringGrid1.Cells[2, 2] := '';
  StringGrid1.Cells[3, 2] := '100';
  StringGrid1.Cells[4, 2] := '50';
  StringGrid1.Cells[5, 2] := '80';

  StringGrid1.Cells[0, 3] := '沓掛 時次郎';
  StringGrid1.Cells[1, 3] := '160';
  StringGrid1.Cells[2, 3] := '';
  StringGrid1.Cells[3, 3] := '20';
  StringGrid1.Cells[4, 3] := '50';
  StringGrid1.Cells[5, 3] := '90';

  StringGrid1.Cells[0, 4] := '番場 忠太郎';
  StringGrid1.Cells[1, 4] := '150';
  StringGrid1.Cells[2, 4] := '';
  StringGrid1.Cells[3, 4] := '15';
  StringGrid1.Cells[4, 4] := '45';
  StringGrid1.Cells[5, 4] := '90';

  ActiveControl := StringGrid1;
end;

//=============================================================================
//  StringGrid1のOnDrawCellイベント処理
//  DrawFrameControl関数を使用してチェックボックスを描画
//
//  このサンプルでは，Objectsプロパティを利用しているが，チェックボックスを表
//  示するセルには文字列を描画しないのであれば，セルの値で判定できる
//  (チェックの時は何か文字を代入，それ以外は空白文字とか)
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  TempRect : TRect;
  BoxRect  : TRect;
  uState   : Cardinal;
  StrText  : String;
begin
  TempRect := Rect;

  if (ARow > (TStringGrid(Sender).FixedRows - 1)) and (ACol = 2) then begin
    //チェックボックスのサイズを設定
    BoxRect.Left   := Rect.Left + 5;
    BoxRect.Top    := Rect.Top + 2;
    BoxRect.Bottom := Rect.Bottom - 2;
    BoxRect.Right  := BoxRect.Left + (BoxRect.Bottom - BoxRect.Top);
    Rect.Right     := Rect.Bottom - Rect.Top;

    TempRect.Left := TempRect.Left + (BoxRect.Right - BoxRect.Left) + 7;
    TempRect.Top  := TempRect.Top + 2;

    //Objectsプロパティの値に応じてチェック状態を描画
    if Bool(TStringGrid(Sender).Objects[ACol, ARow]) then begin
      TStringGrid(Sender).Canvas.Font.Color := clWindowText;
      StrText := '合格';
      uState  := DFCS_BUTTONCHECK or DFCS_CHECKED;
    end else begin
      TStringGrid(Sender).Canvas.Font.Color := clRed;
      StrText := '落第';
      uState  := DFCS_BUTTONCHECK;
    end;
    DrawText(TStringGrid(Sender).Canvas.Handle,
             PChar(StrText),
             -1,
             TempRect,
             DT_LEFT or DT_SINGLELINE);
    DrawFrameControl(TStringGrid(Sender).Canvas.Handle,
                     BoxRect,
                     DFC_BUTTON,
                     uState);
  end;
end;

//=============================================================================
//  StringGrid1のOnMouseDownイベント処理
//  マウス左ボタン押下でチェック状態をトグルする
//=============================================================================
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ACol  : Integer;
  ARow  : Integer;
  ABool : Boolean;
begin
  if Button = mbLeft then begin
    TStringGrid(Sender).MouseToCell(X, Y, ACol, ARow);
    if (ARow > (TStringGrid(Sender).FixedRows - 1)) and (ACol = 2) then begin
      ABool   :=  Bool(TStringGrid(Sender).Objects[ACol, ARow]);
      TStringGrid(Sender).Objects[ACol, ARow] := TObject(not ABool);
    end;
  end;
end;

//=============================================================================
//  StringGrid1のOnKeyDownイベント処理
//  スペースキー押下でもチェック状態をトグルする
//=============================================================================
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  AColLeft   : Integer;
  ARowTop    : Integer;
  ARowBottom : Integer;
  i          : Integer;
  ABool      : Boolean;
begin
  if Key = VK_SPACE then begin
    //選択中のセルの範囲を調査
    AColLeft   := TStringGrid(Sender).Selection.Left;
    ARowTop    := TStringGrid(Sender).Selection.Top;
    ARowBottom := TStringGrid(Sender).Selection.Bottom;

    //複数行選択に対応
    if AColLeft = 2 then begin
      for i := ARowTop to ARowBottom do begin
        ABool :=  Bool(TStringGrid(Sender).Objects[AColLeft, i]);
        TStringGrid(Sender).Objects[AColLeft, i] := TObject(not ABool);
      end;
    end;
  end;
end;

//=============================================================================
//  StringGrid1のOnSelectCellイベント処理
//
//  OptionsプロパティのgoEditingプロパティが有効な場合の対策
//  チェックボックスを描画している列は編集不可とする
//=============================================================================
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 2) then begin
    TStringGrid(Sender).Options := TStringGrid(Sender).Options - [goEditing];
  end else begin
    TStringGrid(Sender).Options := TStringGrid(Sender).Options + [goEditing];
  end;
end;

end.

function TplStringGrid.SelectCell(ACol, ARow: Integer): Boolean;
begin
  if (ACol = 2) then begin
    Options := Options - [goEditing];
  end else begin
    Options := Options + [goEditing];
  end;

  Result := inherited;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 2) then begin
    TStringGrid(Sender).Options := TStringGrid(Sender).Options - [goEditing];
  end else begin
    TStringGrid(Sender).Options := TStringGrid(Sender).Options + [goEditing];
  end;

  CanSelect := True;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Themes;

{$R *.dfm}

//=============================================================================
//  列幅等を設定
//  テスト用にデータ等を設定
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := True;
  StringGrid1.DrawingStyle   := gdsThemed;
  StringGrid1.Options        := StringGrid1.Options + [goEditing];
  StringGrid1.Options        := StringGrid1.Options - [goDrawFocusSelected];
  StringGrid1.Options        := StringGrid1.Options + [goRangeSelect];
  StringGrid1.Options        := StringGrid1.Options + [goColSizing];
  StringGrid1.Options        := StringGrid1.Options + [goRowSizing];

  StringGrid1.FixedCols        := 1;
  StringGrid1.FixedRows        := 1;
  StringGrid1.DefaultColWidth  := 45;
  StringGrid1.DefaultRowHeight := 20;

  //列幅設定
  StringGrid1.ColWidths[0] := 88;
  StringGrid1.ColWidths[2] := StringGrid1.DefaultRowHeight + 35;

  //列数と行数を設定
  StringGrid1.ColCount := 6;
  StringGrid1.RowCount := 5;

  //テスト表示用のデータをセット
  //空表示では寂しいので
  StringGrid1.Cells[0, 0] := '';
  StringGrid1.Cells[1, 0] := '合計点';
  StringGrid1.Cells[2, 0] := '合否';
  StringGrid1.Cells[3, 0] := '数学';
  StringGrid1.Cells[4, 0] := '物理';
  StringGrid1.Cells[5, 0] := '社会';

  StringGrid1.Cells[0, 1] := '宮本 武蔵';
  StringGrid1.Cells[1, 1] := '145';
  StringGrid1.Cells[2, 1] := '';
  StringGrid1.Cells[3, 1] := '45';
  StringGrid1.Cells[4, 1] := '20';
  StringGrid1.Cells[5, 1] := '80';

  StringGrid1.Cells[0, 2] := '佐々木 小次郎';
  StringGrid1.Cells[1, 2] := '230';
  StringGrid1.Cells[2, 2] := '';
  StringGrid1.Cells[3, 2] := '100';
  StringGrid1.Cells[4, 2] := '50';
  StringGrid1.Cells[5, 2] := '80';

  StringGrid1.Cells[0, 3] := '沓掛 時次郎';
  StringGrid1.Cells[1, 3] := '160';
  StringGrid1.Cells[2, 3] := '';
  StringGrid1.Cells[3, 3] := '20';
  StringGrid1.Cells[4, 3] := '50';
  StringGrid1.Cells[5, 3] := '90';

  StringGrid1.Cells[0, 4] := '番場 忠太郎';
  StringGrid1.Cells[1, 4] := '150';
  StringGrid1.Cells[2, 4] := '';
  StringGrid1.Cells[3, 4] := '15';
  StringGrid1.Cells[4, 4] := '45';
  StringGrid1.Cells[5, 4] := '90';

  ActiveControl := StringGrid1;
end;

//=============================================================================
//  StringGrid1のOnDrawCellメソッド
//  TThemeServicesを使用してボタンを描画
//=============================================================================
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  LStrText  : String;
  LBtnTheme : TThemedButton;
  LDetails  : TThemedElementDetails;
begin
  if (ARow > (TStringGrid(Sender).FixedRows - 1)) and (ACol = 2) then begin
    //フォーカスの有無によってボタンの種類を変更
    if gdFocused in State then begin
      LBtnTheme := tbPushButtonPressed;
    end else begin
      LBtnTheme := tbPushButtonNormal;
    end;

    //ボタンを描画
    LDetails := ThemeServices.GetElementDetails(LBtnTheme);
    ThemeServices.DrawElement(TStringGrid(Sender).Canvas.Handle,
                      LDetails,
                      Rect,
                      nil);

    //セルの文字列の設定と描画
    TStringGrid(Sender).Canvas.Font.Color := clBlack;
    LStrText := IntToStr(ARow);

    SetBkMode(TStringGrid(Sender).Canvas.Handle, TRANSPARENT);
    DrawText(TStringGrid(Sender).Canvas.Handle,
             PChar(LStrText),
             -1,
             Rect,
             DT_VCENTER or DT_CENTER or DT_SINGLELINE);

  end;
end;

//=============================================================================
//  StringGrid1のOnMouseDownイベント処理
//  OnClickイベントだとセルの移動でも発生してしまうので，こちらで処理
//=============================================================================
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  LIndex   : Integer;
  LStrText : String;
begin
  if Button = mbLeft then begin
    if TStringGrid(Sender).Col = 2 then begin
      LIndex   := TStringGrid(Sender).Row;
      LStrText := IntToStr(LIndex) + ' 行目のボタンが押されました';
      MessageBox(Handle, PChar(LStrText), '情報', MB_ICONINFORMATION);
    end;
  end;
end;

//=============================================================================
//  StringGrid1のOnSelectCellイベント処理
//
//  OptionsプロパティのgoEditingプロパティが有効な場合の対策
//  ボタンを描画している列は編集不可とする
//=============================================================================
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  LSGOptions : TGridOptions;
begin
  LSGOptions := StringGrid1.Options;
  if (ACol = 2) then begin
    Exclude(LSGOptions, goEditing);
  end else begin
    Include(LSGOptions, goEditing);
  end;
  StringGrid1.Options := LSGOptions;
end;

end.