2016/07/05

IntraWeb 學習日記:【TIWTabControl】

為了要實作像 Win32 Form MDI 那樣的程式,我們可以借用 IntraWeb 的 TIWTabControl 來實現多支程式的執行。

實務操作起來也不是很難,雛形大概會長成這樣:

實作程式碼如下:

var
  LIWTabPage: TIWTabPage;
  LMyFrame: TIWFrame2;
begin
  LIWTabPage := IWTabControl1.CreateNewPage('TEST' +IntToStr(Random(10000)));
  LMyFrame := TIWFrame2.Create(LIWTabPage);

  LMyFrame.Align := alClient;
  LMyFrame.Name := 'TEST' +IntToStr(Random(10000));
  LMyFrame.Parent := LIWTabPage;
  IWTabControl1.ActivePage := IWTabControl1.Pages.Count-1;
end;

真是意外的簡單!

沒有留言:

張貼留言