Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2009年05月24日] [更新 2013年12月03日]　エクセル操作フォームEx
エクセル操作フォームEx
テストプログラム　SimpleExcel
動作確認等 Windows 7 U64(SP1) + Delphi XE(UP1) Pro + Excel 2010






超シンプルエクセル ( メインフォームとして起動 )


表示されているグリッドは TStringGrid ではありません．エクセルのシートです．
エクセル操作フォームEx をメインフォームとして起動します．非常にシンプルなエクセルです．各種テスト用に使用すると便利です．筆者は主にこのプロジェクト関係ファイルをまるごとコピーしてテストに用いています．


図1
実行画面

リスト1
テストプログラムのコード 
unit SimpleExcelUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, plExcelEx, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls;

type
  TplExcelFormEx2 = class(TplExcelFormEx)
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  plExcelFormEx2: TplExcelFormEx2;

implementation

{$R *.dfm}

//=============================================================================
//  Formを表示する時の処理
//=============================================================================
procedure TplExcelFormEx2.FormShow(Sender: TObject);
begin
  //パネルは非表示
  PanelRight.Visible := False;

  //フォーム表示開始時に開くブック名
  xlfBookFullPath := 'テストブック.xls';

  //グリッドライン等を表示
  xlfDisplayGridLines    := True;
  xlfDisplayWorkBookTabs := True;
  xlfDisplayHeadings     := True;

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

end.



ひな型のプロジェクトやフォームとして使用


上のコードでは，右側のパネル (TPanel) を非表示にしていますが，右側の TPanel を非表示にするコードを削除すると下図のように表示されます．
このパネルにボタン等を配置して，いろいろなテスト用のプロジェクトとして利用できます．		 


  //パネルは非表示
  PanelRight.Visible := False;  //ここを削除するかTrueにする


図2
テスト用のボタンを配置

コンポーネントやプログラムのファイルは，パスの通ったフォルダにないと利用できません．
筆者の場合，共通に使用するコード類は D:\XRAYpl というフォルダに格納しています．したがって，テストプログラムのプロジェクトのソースコードは，次のようになっています．各自の環境に応じてパス名を変更してください．

このようなプロジェクトを作成しておけば，エクセル操作フォームEx をリポジトリに登録しなくても，いつでもエクセル操作フォームEx が使用可能となります．
このひな型のプロジェクトのフォーム関係のファイル (pas, dfm) を，別のプロジェクトのフォルダにコピーし，そのプロジェクトに追加して使用できます．		 


uses
  Forms,
  SimpleExcelUnit in 'SimpleExcelUnit.pas' {plExcelFormEx2},
  plExcelEx in 'D:\XRAYpl\plExcelEx.pas' {plExcelFormEx};  //ここを変更


plExcelEx.pas.pas と plExcelEx.dfm ファイルはライブラリのパスが通った場所 (フォルダ内) にありますから，実際には必要ありません．2 行目のコードは削除しても構いません．2 行目のコードは，継承クラスを作成した時に自動的にプロジェクトに追加されたコードです．
このことは，他のテストプログラムでも同じです．

このコードは，IDE のメニューの [プロジェクト] [プロジェクトから削除] から plExcelEx を削除すれば自動的に削除されます． 



uses
  Forms,
  SimpleExcelUnit in 'SimpleExcelUnit.pas' {plExcelFormEx2};