mirror of
https://github.com/CloudDelphi/Router4Delphi.git
synced 2025-12-19 16:53:43 +01:00
58 lines
965 B
ObjectPascal
58 lines
965 B
ObjectPascal
unit Main;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows,
|
|
Winapi.Messages,
|
|
System.SysUtils,
|
|
System.Variants,
|
|
System.Classes,
|
|
Vcl.Graphics,
|
|
Vcl.Controls,
|
|
Vcl.Forms,
|
|
Vcl.Dialogs,
|
|
Vcl.ExtCtrls,
|
|
Router4D,
|
|
View.Page.Main.Cadastro,
|
|
Vcl.StdCtrls;
|
|
|
|
type
|
|
TfMain = class(TForm)
|
|
pnlBackground: TPanel;
|
|
pnlMain: TPanel;
|
|
pnlEmbed: TPanel;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
procedure RegisterRouters;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
fMain: TfMain;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
View.Page.Customer,
|
|
View.Page.Product;
|
|
|
|
procedure TfMain.FormCreate(Sender: TObject);
|
|
begin
|
|
RegisterRouters;
|
|
TRouter4D.Render<TfViewPageMainCadastro>.SetElement(pnlEmbed, pnlBackground);
|
|
end;
|
|
|
|
procedure TfMain.RegisterRouters;
|
|
begin
|
|
TRouter4D.Switch.Router('Start', TfViewPageMainCadastro);
|
|
TRouter4D.Switch.Router('Product', TfViewPageProduct);
|
|
TRouter4D.Switch.Router('Customer', TfViewPageCustomer);
|
|
end;
|
|
|
|
end.
|
|
|