----------程----------------------------------
(程式5)
var ctrl1=LocateElement("IWEDIT1");
var ctrl2=LocateElement("IWEDIT2");
var retctrl=LocateElement("IWEDIT3");
var val1=parseInt(ctrl1.value);
var val2=parseInt(ctrl2.value);
if (val1==NaN)
  {
   window.alert("第一個並非是數字.");
   return false;
  }
if (val2==NaN)
  {
   window.alert("第二個並非是數字.");
   return false;
  }
retctrl.value=(val1+val2).toString();
return false;
------------------------------------------------




----------程----------------------------------
(程式6)
imgArray=new Array();
imgArray[0]=new Image();
imgArray[0].src="/files/B1.jpg";
imgArray[1]=new Image();
imgArray[1].src="/files/B2.jpg";
------------------------------------------------





----------程----------------------------------
(程式7) onMouseOver
LocateElement("IWIMAGEFILE1").src=imgArray[1].src;
------------------------------------------------

----------程----------------------------------
(程式8) onMouseOut
LocateElement("IWIMAGEFILE1").src=imgArray[0].src;#小小標=Lesson 6: 廣告看版
------------------------------------------------




----------程----------------------------------
(程式9)
imgArray=new Array();
imgArray[0]=new Image();
imgArray[0].src="/files/B1.jpg";
imgArray[1]=new Image();
imgArray[1].src="/files/B2.jpg";
boardSize=2;
boardNum=0;
function rotateBoard()
{
  var imgObj=LocateElement("IWIMAGEFILE1");
  boardNum++;
  if (boardNum > boardSize) boardNum=1;
  imgObj.src=imgArray[boardNum-1].src;
  setTimeout("rotateBoard()",2000);
}
------------------------------------------------




----------程----------------------------------
(程式10)
procedure TformRotateImg.IWAppFormRender(Sender: TObject);
begin
  inherited;
  AddToInitProc('setTimeout("rotateBoard()",1);');
end;
------------------------------------------------



----------程------------------------------
(程式11)
uses SWSystem;

procedure TformDarkStar.IWAppFormRender(Sender: TObject);
var
  vCode:TStrings;
begin
  inherited;
  vCode:=TStringList.Create;
  try
    vCode.LoadFromFile(gsAppPath+'\files\star.js');
    IWLabel2.Caption:=vCode.Text;
  finally
    vCode.Free;
  end;
end;
------------------------------------------------




----------程----------------------------------
(程式12)
Function checkRegExp()
{
 var vRegExp=new RegExp("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$","g");
 var vValue=LocateElement("IWEDIT1").value;
 if (!vRegExp.test(vValue))
  {
    alert("請輸入正確的E-Mail 位址!");
    return false;
  }
 else
    return true;
}
------------------------------------------------




------------------------------------------------
(程式13)
checkRegExp()
------------------------------------------------




----------程----------------------------------
(程式14)
Procedure TformRegularExp.IWButton1Click(Sender: TObject);
begin
  inherited;
  WebApplication.ShowMessage(IWEdit1.Text);
end;
------------------------------------------------





----------程----------------------------------
(程式15) movelink.css
A:hover{ font-weight: bold;  color: Fuchsia;  }
------------------------------------------------




----------程----------------------------------
(程式16)
Procedure TformRightEdit.IWAppFormRender(Sender: Tobject);
begin
  inherited;
  AddToIWCLInitProc('LocateElement("IWEDIT1").style.textAlign="right";');
end;這個程式是使用了JavaScript 來動態改變EDIT 元件的CSS 樣式，圖6是執行的畫面：
------------------------------------------------





----------程----------------------------------
(程式17)
.GENERAL_RIGHT_STYLE{
	text-align: right;
}
------------------------------------------------





----------程----------------------------------
(程式18)
input{
	border: 1px solid #DBDBFF;
	border-color: #1E90FF;
	background-color: #EEEEFF;
}
------------------------------------------------