S
shengge
Unregistered / Unconfirmed
GUEST, unregistred user!
unit About;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls, ExtCtrls, jpeg, StrUtils, CSTools, Math;<br><br>type<br> TAboutForm = class(TForm)<br> btnOK: TButton;<br> Bevel1: TBevel;<br> Label1: TLabel;<br> Label2: TLabel;<br> lbHome: TLabel; <br> lbVer: TLabel;<br> lbHomeGTJA: TLabel;<br> lbLicInfo: TLabel;<br> imgCompany: TImage;<br> procedure lbHomeClick(Sender: TObject);<br> procedure FormCreate(Sender: TObject);<br> procedure lbHomeGTJAClick(Sender: TObject);<br> procedure FormShow(Sender: TObject);<br> procedure lbHomeMouseEnter(Sender: TObject);<br> procedure lbHomeMouseLeave(Sender: TObject);<br> private<br> public<br> ModalName: string;<br> LicInfo: string;<br> end;<br><br> procedure ShowAbout(const ModalName: string; const LicInfo: string = '');<br><br>var<br> AboutForm: TAboutForm;<br><br>implementation<br><br><br>其中的ShowAbout 过程是不是 不属于任何类,他可以被其他对象调用吗?