<< Click to Display Table of Contents >> Navigation:  Demos > X > StandAloneSSL > NonSecureForm.pas

unit NonSecureForm;

 

interface

 

uses

 Classes, SysUtils, IWAppForm, IWApplication, IWTypes, IWCompText,

 Controls, IWVCLBaseControl, IWBaseControl, IWControl, IWCompLabel,

 IWHTMLControls, IWBaseHTMLControl;

 

type

 TIWForm3 = class(TIWAppForm)

 IWLabel1: TIWLabel;

 IWText1: TIWText;

 linkNext: TIWLink;

 procedure linkNextClick(Sender: TObject);

 public

 end;

 

implementation

 

{$R *.dfm}

 

uses

 ServerController, SecureForm;

 

procedure TIWForm3.linkNextClick(Sender: TObject);

begin

 WebApplication.SwitchToSecure;

 TIWForm2.Create(WEBApplication).Show;

 Release;

 

end;

 

end.