expertend.pas

来自「formContainer for delphi,是一个delphi form动」· PAS 代码 · 共 34 行

unit ExpertEnd;

interface

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

type
  TFormEnd = class(TFormExpertWindow)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  FormEnd: TFormEnd;

implementation

uses TransExpert;

{$R *.DFM}

procedure TFormEnd.FormShow(Sender: TObject);
begin
  inherited;

  FormTransitionsExpert.BitBtnNext.Enabled := False;
end;

end.