网淘巴来吧,欢迎您!

返回首页 微信
微信
手机版
手机版

ActivePage实例代码

2021-08-13 新闻来源:网淘巴 围观:918
''

这个例子要求form上已经有一个TPageControl。另外,您必须通过右击并选择New Page将页面添加到TPageControl中。示例代码允许您通过选择ComboBox项来选择ActivePage属性。在form被创建时,已装载了每一个tabs的名称Combo Box控件被加载,以及指向相应tab的实例指针。当您选择组合框Item时,组合框对象数组中包含的相关TTabSheet 对象,用于设置ActivePage属性。选择TRichEdit的Lines属性用于输入字符串。在验证之前选择字符串。

procedure TForm1.FormCreate(Sender: TObject);var  i: Integer;const  colorarray : Array[0..4] of TColor = (    clYellow, clGreen, clBlue, clLime, clFuchsia);begin  for i := 0 to PageControl1.PageCount - 1 do    begin    PageControl1.Pages[i].Brush.Color := colorarray[i];    ComboBox1.Items.AddObject(PageControl1.Pages[i].Name,      PageControl1.Pages[i]);    end;  ComboBox1.ItemIndex := 0;  PageControl1.ActivePage := TTabSheet(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);end;procedure TForm1.ComboBox1Change(Sender: TObject); begin  if (Sender is TComboBox) then    with (Sender as TComboBox) do      PageControl1.ActivePage := TTabSheet(Items.Objects[ItemIndex]);  end;

翻译由网淘巴完成,转载必须标明出处:ActivePage实例代码_delphi_网淘巴 (wtao8.com)

免责申明
部分文章来自各大搜索引擎,如有侵权,请与我联系删除。
打赏

本文链接:https://www.wtao8.com/post/150.html 转载需授权!

分享到:

相关文章

  • ADOQuery (Delphi)使用实例
    ADOQuery (Delphi)使用实例

    此示例演示了使用 ADO 进行数据库连接。 该示例假设在窗体上放置了一个 DBGrid。 Code procedure TForm2.FormCreate(Sender: TObject); c...

    2021-08-13
  • AddChildObjectFirst使用实例
    AddChildObjectFirst使用实例

    下面的示例将一个新项目添加到the tree view 控件中所选项目的子项目列表中。新项目首先添加到子项目列表中。新项目由文本“new item”标识。TBitmap对象附加到the new ite...

    2021-08-13
  • ActnMgrBar 使用实例
    ActnMgrBar 使用实例

    这个应用程序需要表单上已经有一个TPopupActionBar组件。应用程序创建一个action manager组件,并将一个图像列表分配给它的一些属性。然后,自定义弹出action bar 并将其a...

    2021-08-13
  • ActiveControl (Delphi)实例
    ActiveControl (Delphi)实例

    在窗体上放置一个TTimer对象,并在OnTimer事件中输入Timer1Timer。将其他控件放置在窗体上,并在运行时更改活动控件。下面的事件处理程序通过每100毫秒向右移动一个像素来响应计时器事件...

    2021-08-12
龙年
大发