myanim.txt

来自「一个程序而已」· 文本 代码 · 共 42 行

MyAnim程序清单

unit CMyAnim;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  CFill,
  CShow;
type
  TfrmMyAnim = class(TForm)
    cmdFillAnim: TButton;
    cmdExit: TButton;
    cmdShow: TButton;
    procedure cmdFillAnimClick(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure cmdShowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMyAnim: TfrmMyAnim;
implementation
{$R *.dfm}
procedure TfrmMyAnim.cmdFillAnimClick(Sender: TObject);
begin
frmFillAnim.ShowModal;
end;
procedure TfrmMyAnim.cmdExitClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmMyAnim.cmdShowClick(Sender: TObject);
begin
frmShow.ShowModal;
end;
end.