【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,About.pas,希望对大家有所帮助!
unit About;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, RzPanel, jpeg, StdCtrls, Buttons, ShellAPI;
type
TAboutForm = class(TForm)
RzGroupBox2: TRzGroupBox;
RzGroupBox3: TRzGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
SpeedButton1: TSpeedButton;
Image2: TImage;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
RzGroupBox1: TRzGroupBox;
Image1: TImage;
procedure SpeedButton1Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutForm: TAboutForm;
implementation
uses Inc;
{$R *.dfm}
procedure TAboutForm.SpeedButton1Click(Sender: TObject);
begin
Close;
end;
procedure TAboutForm.Label5Click(Sender: TObject);
begin
ShellExecute(Handle,nil,PChar('http://www.luxcoo.com'),nil,nil,SW_ShowNormal);
end;
procedure TAboutForm.FormShow(Sender: TObject);
begin
//AboutForm.Caption :=AboutTitle;
end;
end.
上一篇:
FMPOSAF6.frm
下一篇:
"夜"