home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 May
/
VPR9705A.ISO
/
VPR_DATA
/
PROGRAM
/
Delphi
/
Sample
/
USEABOXF.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1997-03-02
|
535b
|
35 lines
unit UseABoxF;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, AboutBox;
type
TForm1 = class(TForm)
AboutBox1: TAboutBox;
MainMenu1: TMainMenu;
Help1: TMenuItem;
About1: TMenuItem;
procedure About1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.About1Click(Sender: TObject);
begin
AboutBox1.Execute;
end;
end.