• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

在TNotebook组件的所有页面上显示组件_Delphi

Delphi 搞代码 3年前 (2018-08-09) 174次浏览 已收录 0个评论

若希望在TNotebook或TPageControl组件的所有页面上显示某些组件(例如浏览数据库的列表框)时,不需要在在每个页面上重复设置这些组件,只需要首先建立它们,然后再添加TNotebook或TPageControl控件,调整它们的大小和位置,用鼠标右键单击TNotebook或TPageControl组件,单击弹出菜单中的“Send To Back”属性,这时最先添加的控件就显示在TNotebook或TPageControl控件之上,按通常的方法添加其他组件到TNotebook或TPageControl组件即可。

此方法只对控件有效,所以TDBText需用TDBEdit代替,并设置其为只读,边界属性设置为空,Ctrl3D属性设置为假。同理,需要用TPanel组件代替TLabel组件。

另一种更为有效的方法是编写一段代码,来动态改变组件的位置,这种方法对所有的组件均有效。以TPageControl为例,在其OnChange事件处理程序中插入如下代码:

procedure TForm1.PageControl1Change(Sender: TObject);

begin

http://www.gaodaima.com/65654.html在TNotebook组件的所有页面上显示组件_Delphi

Panel1.Parent := PageControl1.ActivePage;

//other code follows

end;

实际使用时,用自己的组件代替Panel1。记住:应当将组件放置在程序运行时,打开对话框时首先显示的对话页上,以避免在窗体的OnCreate事件处理程序中编写代码。

欢迎大家阅读《在TNotebook组件的所有页面上显示组件_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址