intraweb应用

//返回按钮
unit ServerController;
interface
uses
SysUtils, Classes, IWServerControllerBase, HTTPApp, IWContainer;
type
TIWServerController = class(TIWServerControllerBase)
procedure IWServerControllerBaseBackButton(ASubmittedSequence,
ACurrentSequence: Integer; AFormName: String; var VHandled,
VExecute: Boolean);
private
public
end;
implementation
{$R *.dfm}
uses
IWInit, Second, Third, Main, IWForm;
procedure TIWServerController.IWServerControllerBaseBackButton( ASubmittedSequence, ACurrentSequence: Integer; AFormName: String;
var VHandled, VExecute: Boolean);
const
DefaultFormName = 'MainForm';
type
TIWFormClass = class of TIWForm;
var
LForm : TIWForm;
begin
// This is a generic back-button handler that can easily be adapted to
// your application
VHandled := True;
VExecute := True;
if AFormName = '' then
AFormName := DefaultFormName;
if WebApplication.FindComponent(AFormName) <> nil then
begin
WebApplication.SetActiveForm(WebApplication.FindComponent(AFormName) as TIWContainer);
end else begin
try
LForm := TIWFormClass(FindClass('T' + AFormName)).Create(WebApplication);
WebApplication.SetActiveForm(LForm);
except
VHandled := false;
end;
end;
end;
initialization
TIWServerController.SetServerControllerClass;
end.
//下一个窗体显示
procedure TSecondForm.IWLink1Click(Sender: TObject);
begin
if WebApplication.FindComponent('ThirdForm') <> nil then begin
TIWAppForm(WebApplication.FindComponent('ThirdForm')).Show;
end else begin
TThirdForm.Create(WebApplication).Show;
end;
release;
end;
//登陆窗体
unit Main;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWTypes, IWCompButton, IWCompEdit, Controls, IWBaseControl, IWControl, IWCompLabel, IWVCLBaseControl, IWBaseHTMLControl;
type
TMainForm = class(TIWAppForm)
IWLabel1: TIWLabel;
IWLabel2: TIWLabel;
IWLabel3: TIWLabel;
editUsername: TIWEdit;
editPassword: TIWEdit;
butnLogin: TIWButton;
IWLabel4: TIWLabel;
procedure butnLoginClick(Sender: TObject);
public
end;
implementation
{$R *.dfm}
uses
ServerController, Second, IWBaseForm;
procedure TMainForm.butnLoginClick(Sender: TObject);
begin
if (editUsername.Text = 'demo') and (editPassword.Text = 'demo') then begin
if WebApplication.FindComponent('SecondForm') <> nil then begin
TIWAppForm(WebApplication.FindComponent('SecondForm')).Show;
end else begin
TSecondForm.Create(WebApplication).Show;
end;
Release;
end else begin
WebApplication.ShowMessage('Invalid Username/Password');
end;
end;
initialization
TMainForm.SetAsMainForm;
RegisterClass(TMainForm);
end.
//onkeydown脚本
if ((event.keyCode==40) && (LISTBOXCITIESIWCL.style.visibility != 'hidden')) { LISTBOXCITIESIWCL.focus();
};
return true;。