singlenbtnform.pas

来自「实达企业在线EOL源码」· PAS 代码 · 共 35 行

unit SingleNbtnForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, Db, RootForm;

type
  TSingleNbtnFrm = class(TRootFrm)
    Image1: TImage;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SingleNbtnFrm: TSingleNbtnFrm;

implementation

{$R *.DFM}

procedure TSingleNbtnFrm.FormCreate(Sender: TObject);
begin
  inherited;
//  GetImageFromDLL(EOL_RESOURCEDLL,BACK_IMAGE,image1);
//  if Assigned(DataSource1.DataSet) then DataSource1.DataSet.Open;
end;

end.