unit Subscherm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ActnList,
  Vcl.ImgList, Vcl.ExtCtrls, Soap.InvokeRegistry, Soap.Rio,
  Soap.SOAPHTTPClient, Data.DB, Datasnap.DBClient, Soap.SOAPConn, Agent,
  Main, ApplicationContext;

type
  TFormSubscherm = class(TForm)
  private
    FNavigator: TFormMain;
    FApplicationContext: TApplicationContext;
  protected
    property Navigator: TFormMain Read FNavigator write FNavigator;
    property ApplicationContextObj: TApplicationContext Read FApplicationContext write FApplicationContext;
  public
    Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext); overload;
  end;

implementation

constructor TFormSubscherm.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext);
begin
  inherited Create(AOwner);

  Self.Navigator := Navigator;
  Self.ApplicationContextObj := ApplicationContext;

  BorderStyle := bsNone; // Subschermen hebben geen border
end;

end.