//=============================================================================
//  フォームを表示する時の処理
//=============================================================================
procedure TplExcelFormEx2.FormShow(Sender: TObject);
begin
  //フォーム表示開始時に開くブック名
  xlfBookFullPath := 'テストブック.xls';
  //グリッドライン等を表示
  xlfDisplayGridLines    := True;
  xlfDisplayWorkBookTabs := True;
  xlfDisplayHeadings     := True;

  //元のフォームのOnShowを実行
  inherited;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TplExcelFormEx2.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  xlfBookSaved := True;
  inherited;
end;

//=============================================================================
//  ウィンドウ枠の固定(トグル)
//  現在選択中のセルの左例と上の列を固定列と固定行にする
//=============================================================================
procedure TplExcelFormEx2.Button1Click(Sender: TObject);
var
  pType    : OleVariant;
  pID      : OleVariant;
  pTag     : OleVariant;
  pVisible : OleVariant;
begin
  pType    := EmptyParam;
  pID      := 443;
  pTag     := EmptyParam;
  pVisible := EmptyParam;

  try
    xlfExcelApp.CommandBars.FindControl(pType, pID, pTag, pVisible).Execute;
  except
  end;
end;

//=============================================================================
//  ウィンドウ枠の固定
//  コードでセルを指定
//=============================================================================
procedure TplExcelFormEx2.Button2Click(Sender: TObject);
begin
  //セルを選択．このセルの左側の列と上の行が固定列と行になる
  xlfActiveCell := 'B3';
  xlfExcelApp.ActiveWindow.FreezePanes := True;
end;

//=============================================================================
//  ウィンドウ枠固定の解除
//=============================================================================
procedure TplExcelFormEx2.Button3Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.FreezePanes := False;
end;

//=============================================================================
//  指定行と列でウィンドウ分割
//=============================================================================
procedure TplExcelFormEx2.Button4Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.SplitRow    := 8;
  xlfExcelApp.ActiveWindow.SplitColumn := 4;
end;

//=============================================================================
//  ウィンドウ分割の解除
//=============================================================================
procedure TplExcelFormEx2.Button5Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.SplitRow    := 0;
  xlfExcelApp.ActiveWindow.SplitColumn := 0;
end;

//=============================================================================
//  ウィンドウ枠の固定と分割を解除
//=============================================================================
procedure TplExcelFormEx2.Button6Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.FreezePanes := False;
  xlfExcelApp.ActiveWindow.SplitRow    := 0;
  xlfExcelApp.ActiveWindow.SplitColumn := 0;
end;