如何隐藏tpagecontrol delphi控件的选项卡(hide the tabs of the tpagecontrol delphi control)
TPageControl Delphi控件显示一组用于创建多页对话框的页面。每个页面（选项卡页）都有自己的控件。用户通过单击显示在控件顶部的页面选项卡来选择页面（使其可见）。
隐藏页面控制选项卡
如果需要创建类似向导的用户界面，其中显示“下一步”和“上一步”按钮，以在一组页面（对话框）中前后移动用户，请隐藏页面控件的选项卡，从而禁止通过用户鼠标选择特定页面。
诀窍在于为页面控件的每个工作表（TTabSheet对象）将TabVisible属性设置为false。
使用ActivePage或ActivePageIndex PageControl属性激活页面不会引发OnChange和OnChange事件。
要以编程方式设置活动页面，请使用SelectNextPage方法：
//Hide PageControl Tabsvarpage : integer;beginfor page := 0 to PageControl1.PageCount - 1 dobeginPageControl1.Pages[page].TabVisible := false;end;//select the first tabPageControl1.ActivePageIndex := 0;(*Or set Active Page directlyPageControl1.ActivePage := TabSheet1;Note: the above two do NOT raise theOnChanging and OnChange events*)end;procedure TForm1.PageControl1Changing(Sender: TObject;var AllowChange: Boolean) ;begin//no change if on the last pageAllowChange := PageControl1.ActivePageIndex < -1 + PageControl1.PageCount;end;//Select "Previous" Tabprocedure TForm1.PreviousPageButtonClick(Sender: TObject) ;beginPageControl1.SelectNextPage(false,false) ;end;//Select "Next" Tabprocedure TForm1.NextPageButtonClick(Sender: TObject) ;beginPageControl1.SelectNextPage(true,false) ;end;使用此技术将消除表单中的混乱，从而使界面更加精简，但确保每个选项卡上控件的排列不会迫使用户在选项卡之间频繁移动。
- 发表于 2021-10-13 10:39
- 阅读 ( 148 )
- 分类：数学
你可能感兴趣的文章
在firefox中使用自定义的键盘快捷组合隐藏和显示选项卡栏
...式，使其与其他键盘快捷键很好地配合。如果您喜欢自动隐藏功能的想法，那么您也可以通过自定义时间设置来启用它。 正如您所看到的，有许多键盘快捷键组合选项可用。我们决定在我们的系统上做些实验，通过设置“隐藏...
为新gmail提供更好的gmail 2 firefox扩展
...0.1：已发布。背景故事：2008年1月，我做了一个关于Gmail如何变得更好的演讲。如果你感兴趣的话，这里是演讲的记录和幻灯片，叫做“众包一个更好的Gmail”更好的gmail q&amp；A.我应该使用哪个版本的更好的Gmail？如果你可以...
使用delphi的键入文件文件创建数据库
...t record} Seek(F, FileSize(F)) ; 更改和更新 您刚刚学会了如何编写和读取整个成员数组，但如果您只想查找第10个成员并更改电子邮件，该怎么办？下一个过程正是这样做的： procedure ChangeEMail(const RecN : integer; const NewEMail : str...
理解delphi项目和单元源文件
...供了在软件后台出现的许多功能。 例如，应用程序处理如何从程序菜单调用帮助文件。 DPROJ是Delphi项目文件的另一种文件格式，但它以XML格式存储项目设置。 pas文件 PAS文件格式保留用于Delphi单元源文件。您可以通过项目...
如何在运行时移动和调整控件大小（在delphi应用程序中）(move and resize controls at run time (in delphi applications))
...如上所述的鼠标事件： type TForm1 = class(TForm) ... procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ControlMouseUp(Sender: TObject; Button: TMo...
如何自定义dbnavigator(customize the dbnavigator)
...tate : TKeyboardState; begin GetKeyboardState(State); Result := ((State[vk_Control] And 128) 0); end;const MoveBy : integer = 5;begincase Button of nbPrior: if CtrlDown then DBNavigator1.DataSource.DataSet.MoveBy(-MoveBy); nbNext: if CtrlDown then DBNavigator1.DataSource.DataSet.MoveBy(MoveBy); end;...
如何delphidbgrid中的multiselect(multiselect in the delphi dbgrid)
Delphi的DBGrid是数据库相关应用程序中使用最广泛的DB感知组件之一。它的主要目的是使应用程序的用户能够在表格网格中操作数据集中的记录。 DBGrid组件的一个鲜为人知的特性是，可以将其设置为允许多行选择。这意味着用...
在系统托盘中放置delphi应用程序
...FY用于删除或修改任务栏中的图标-我们将在本文后面看到如何操作。我们发送给Shell_NotifyIcon的第二个参数是初始化的TrayCondata结构。 拿一个 如果您现在运行项目，您将看到托盘中时钟附近有一个图标。注意三件事。 1） 首...
用delphi截取键盘输入
...动我们的战舰。德尔福帮助！ 截取键盘输入 大多数Delphi应用程序通常通过特定的事件处理程序处理用户输入，这些事件处理程序使我们能够捕获用户击键并处理鼠标移动。 我们知道焦点是通过鼠标或键盘接收用户输入的...
从delphi代码执行并运行应用程序和文件
...open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ; 下面介绍如何查找与扩展关联的应用程序。 使用默认的web explorer打开网站或*.htm文件 ShellExecute(Handle, 'open','http://delphi.about.com',nil,nil, SW_SHOWNORMAL) ; 发送带有主题和邮件正文...
0 篇文章
