こんにちは、高田浩です。

現在、xBase.pas なる xBASE言語ライク環境の開発中なのですが、
その中からの紹介です。

一番シンプルな（オプションのない） BROWSE の実装です。

TTable １つあればいいので、開発中のちょっとみなんかには使え
るかも、、、たぶん dBASE でなくても動作すると思うのですが、、。


-------------------------------------------------------------
procedure xBrowse(Alias: TTable);
var
  BrowForm  : TForm;
  BrowPane  : TPanel;
  BrowGrid  : TDBGrid;
  BrowNavi  : TDBNavigator;
  BrowData  : TDataSource;
begin
  BrowForm := TForm.Create(Nil);
  BrowPane := TPanel.Create(BrowForm);
  BrowGrid := TDBGrid.Create(BrowForm);
  BrowNavi := TDBNavigator.Create(BrowForm);
  BrowData := TDataSource.Create(BrowForm);
  try
    with BrowData do begin
      DataSet  := Alias;
      //AutoEdit := true; //Createで自動設定
      //Enabled  := true; //Createで自動設定
    end;
    with BrowForm do begin
      Position := poDesktopCenter;
      Height   := 400;             // 一応DOSライクに
      Width    := 640;             // 一応DOSライクに
      Font.Name:= 'ＭＳ ゴシック'; // 一応DOSライクに
      Caption  := 'xBase BROWSE Simulate';
    end;
    with BrowPane do begin
      Parent   := BrowForm;
      Align    := alTop;
    end;
    with BrowGrid do begin
      Parent   := BrowForm;
      Align    := alClient;
      DataSource:=BrowData;
    end;
    with BrowNavi do begin
      Parent   := BrowPane;
      Align    := alNone;
      BrowPane.Height:=Height;
      DataSource:=BrowData;
      ShowHint := true;
    end;
    Alias.First;
    BrowForm.ShowModal;
  finally
    BrowData.Free;
    BrowNavi.Free;
    BrowGrid.Free;
    BrowPane.Free;
    BrowForm.Free;
  end;
end;
-----------------------------------------------------------

追伸：ソースを改良したレスを下さる方は、それが xBase.pas に
　　　組み込まれることをご了解ください。

xBase.pas 開発資料収集を SBORLAND (4)dBASE 会議室に、、(;;)

_/dBASE3-4形式_/VdB7&Delphi4pro_/_/KFE06073_/_/高田浩_/_/
 



Original document by 高田　浩        氏 ID:(KFE06073)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。