UnitHelp.~pas
上传用户:conquerdj
上传日期:2022-07-08
资源大小:417k
文件大小:1k
源码类别:

GDI/图象编程

开发平台:

Delphi

  1. unit UnitHelp;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls;
  6. type
  7.   TFormHelp = class(TForm)
  8.     Button1: TButton;
  9.     Label1: TLabel;
  10.     Label2: TLabel;
  11.     Label3: TLabel;
  12.     Label4: TLabel;
  13.     Label5: TLabel;
  14.     Label6: TLabel;
  15.     Label7: TLabel;
  16.     procedure Button1Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22. var
  23.   FormHelp: TFormHelp;
  24. implementation
  25. {$R *.dfm}
  26. procedure TFormHelp.Button1Click(Sender: TObject);
  27. begin
  28.  close;
  29. end;
  30. end.