【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-About1.pas,希望本篇文章对您学习有所帮助。
unit About1;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;
type
TEditXAbout = class(TForm)
CtlImage: TSpeedButton;
NameLbl: TLabel;
OkBtn: TButton;
CopyrightLbl: TLabel;
DescLbl: TLabel;
end;
procedure ShowEditXAbout;
implementation
{$R *.DFM}
procedure ShowEditXAbout;
begin
with TEditXAbout.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
end.
上一篇:
FMPOSA_FIND_BGDS.frm
下一篇:
白色姜花,略微开了