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 转载需授权!