使用IntraWeb进行Web编程(二)

提示：请注意IntraWeb的alignment属性和VCL组件的alignment非常相似。比如程序菜单的alignment属性是alTop，而tree组件则是alClient，此外动态创建的memo的alignment属性被设为alBottom。作为替代方法，可以使用anchors（同样VCL中也有）：可以创建一个bottom－right按钮，或者在页面中间的组件，只需把组件的四个anchors全设为true。请看下面关于该技术的例程。

Writing Multipage Applications

开发多页面应用程序

目前所讲的例程都只有一个页面，下面我们来创建IntraWeb程序的第二个页面。其实，就是这种情况，IntraWeb开发工具也与标准Delphi（或Kylix）十分相似，而与其他互联网开发工具十分不同。下面的例子可以通过IntraWeb向导自动产生源代码，接着研究我们关心的这些代码。

我们从头看，例程IWTwoForms的主窗体演示了IntraWeb表格特性。这是一个强大的组件，她产生的HTML表格既可放入文本又可放入其他组件。在本例中，程序开始运行时，填充表格的内容（在主窗体的OnCreate事件中处理）：

procedure TformMain.IWAppFormCreate(Sender: TObject);

var

  i: Integer;

  link: TIWURL;

begin

  // set grid titles

  IWGrid1.Cell[0, 0].Text := ''''Row'''';

  IWGrid1.Cell[0, 1].Text := ''''Owner'''';

  IWGrid1.Cell[0, 2].Text := ''''Web Site'''';

  // set grid contents

  for i := 1 to IWGrid1.RowCount - 1 do

  begin

    IWGrid1.Cell [i,0].Text := ''''Row ''''   IntToStr (i 1);

    IWGrid1.Cell [i,1].Text := ''''IWTwoForms by Marco Cantù'''';

    link := TIWURL.Create(Self);

    link.Text := ''''Click here'''';

    link.URL := ''''http://www.marcocantu.com'''';

    IWGrid1.Cell [i,2].Control := link;

  end;

end;

上面这段代码的运行结果见图21.4，除了输出外，还有几件事值得注意。首先，表格使用了Delphi的anchors属性（全设为false）来使表格始终处在页面中间，即使用户改变了浏览器窗口大小。其次，我在第三列中加入了一个IWURL组件，当然也可以放其他组件（包括按钮和编辑框）。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!