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,
  Navigator, ApplicationContext;

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

implementation

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

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

  BorderStyle := bsNone; // Subschermen hebben geen border
  BevelKind := bkNone;
  BevelInner := bvNone;
  BevelOuter := bvNone;
end;

end.