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

type
  TFormSubscherm = class(TForm)
  private
    fApplicationContext: TApplicationContext;
  public
    property ApplicationContext: TApplicationContext Read fApplicationContext
      write fApplicationContext;

    Constructor Create(AOwner: TComponent; var ApplicationContext: TApplicationContext); overload;
  end;

implementation

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

  Self.ApplicationContext := ApplicationContext;

  BorderStyle := bsNone; // Alle subschermen hebben geen border
end;

end.