aniform.pas

来自「一个检测网络信息的程序.」· PAS 代码 · 共 41 行

unit aniform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GifForm, Menus, SUIPopupMenu;

type
  TForm2 = class(TForm)
    GifForm: TGifForm;
    suiPopupMenu1: TsuiPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.N1Click(Sender: TObject);
begin
   if form2.Showing then form2.Hide ;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
   showmessage('作者联系方式：'+chr(13)+chr(10)+'  Tel: [phone](办) 87461317(家)'+chr(13)+chr(10)+'  网站：http://cd37.vicp.net'+chr(13)+chr(10)+'  email: [e-mail]'+chr(13)+chr(10)+'程序开发匆忙，有问题和建议'+chr(10)+chr(13)+'（包括功能完善等）请及时联系作者。');
end;

end.