ActivePage实例代码
这个例子要求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)使用实例
此示例演示了使用 ADO 进行数据库连接。 该示例假设在窗体上放置了一个 DBGrid。 Code procedure TForm2.FormCreate(Sender: TObject); c...
2021-08-13Delphi code examples -
AddChildObjectFirst使用实例
下面的示例将一个新项目添加到the tree view 控件中所选项目的子项目列表中。新项目首先添加到子项目列表中。新项目由文本“new item”标识。TBitmap对象附加到the new ite...
2021-08-13Delphi code examples -
ActnMgrBar 使用实例
这个应用程序需要表单上已经有一个TPopupActionBar组件。应用程序创建一个action manager组件，并将一个图像列表分配给它的一些属性。然后，自定义弹出action bar 并将其a...
2021-08-13Delphi code examples -
ActiveControl (Delphi)实例
在窗体上放置一个TTimer对象，并在OnTimer事件中输入Timer1Timer。将其他控件放置在窗体上，并在运行时更改活动控件。下面的事件处理程序通过每100毫秒向右移动一个像素来响应计时器事件...
2021-08-12Delphi code examples
