Componentes.Terceros.DevExp.../official/x.30/ExpressWeb Framework/Demos/Delphi/SimpleTabControl/TestDemo/TabControlTestMain.pas
2007-12-16 17:06:54 +00:00

34 lines
623 B
ObjectPascal

unit TabControlTestMain;
interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TTabControlTestMainForm = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
TabControlTestMainForm: TTabControlTestMainForm;
const
WebApplicationName = 'JimmyFirstControlTest';
implementation
{$R *.DFM}
uses
ComApp;
const
CLASS_ComWebApp: TGUID = '{40DECC1B-D19A-4C63-A2EF-662B2CAC2EE2}';
initialization
TWebAppAutoObjectFactory.Create(Class_ComWebApp,
WebApplicationName, 'JimmyFirstControlTest Object');
end.