【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“AboutFrm.pas”一文,供大家参考学习
unit AboutFrm;
interface
uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
QStdCtrls;
type
TAboutForm = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure ShowAboutBox;
implementation
{$R *.xfm}
procedure ShowAboutBox;
begin
with TAboutForm.Create(Application) do
begin
ShowModal;
Free;
end;
end;
procedure TAboutForm.Button1Click(Sender: TObject);
begin
Close;
end;
end.
上一篇:
DebugDemo.cpp
下一篇:
不规则零件优化排样的神经网络混合优化算法