将窗体显示在 PageControl 上。

最新推荐文章于 2023-04-11 14:57:46 发布
最新推荐文章于 2023-04-11 14:57:46 发布
阅读量143 收藏
点赞数
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/jxgxy/archive/2010/02/13/1668082.html
本文提供了一个使用Delphi语言实现的示例代码，演示了如何在Delphi应用程序中通过`ManualDock`方法将一个窗体（如关于窗口`frmAbout`）自动定位到指定的页面控制组件（如`PageControl1`）。通过这种方式，可以实现在不同的页面上灵活展示特定信息，如关于应用或产品的详细说明。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

var
   AWinControl:TPageControl;
begin
  AWinControl  :=  PageControl1;
  if frmAbout = nil then Exit;  
  frmAbout.ManualDock(AWinControl, nil, alClient);
  frmAbout.Align := alClient;
  frmAbout.Show;
end;

 

转载于:https://www.cnblogs.com/jxgxy/archive/2010/02/13/1668082.html

delphi标签化窗体
12-15
运用Raize控件的pagecontrol把窗体吸附到标签上,并且能够点击标签上的关闭按钮,释放窗体标签
Delph插件窗体Dll和mdi,实现Tabcontrol多页面管理
01-27
这通常涉及到将窗体的定义和实现放在DLL中，然后在主应用程序中通过接口或导出函数来加载和显示窗体。这样，用户可以根据需要动态加载不同的窗体插件，而无需重新编译整个应用程序。 4. **TabControl控件**： ...
pagecontrol中显示窗体
easyboot的专栏
11-30 1230
procedure TFrmMain.N12Click(Sender: TObject); var I: Integer; TabSheet2: TTabSheet; begin if Assigned(FrmDotCoordinateEdit) then begin for I := 0 to FrmMain.MDIChildCount - 1 do i
使用Raize实现Form嵌入PageControl中
火龙岛
09-11 5878
自己写的demo, 备忘！ unit Unit6;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, ToolWin, Unit7, RzTabs;type  TForm6 = class
PageControl 组件
weixin_33921089的博客
08-15 111
PageControl 组件 转载于:https://www.cnblogs.com/LoveFishC/archive/2012/08/15/3846704.html
最简单的C# c/s 分页面 PageControl
u011688054的博客
04-11 274
焦点页的记录数</param>/// <param name="currentPage">焦点页码</param>/// <param name="totalCount">总记录数
delphi 真正实现实现pagecontrol多文档界面
06-14
本文将详细讨论如何使用PageControl组件在Delphi中真正实现MDI功能，以及解决在实现过程中遇到的两个关键问题：Form自适应和跨Form控件操作。 首先，PageControl组件是VCL库中的一个容器控件，它允许在同一个界面上...
Delphi7-PageControl-Tab窗口化源码
02-16
在Delphi7编程环境中，PageControl是一个非常有用的组件，它允许开发者在一个容器内创建多个页面，每个页面可以视为一个独立的子窗口。本资源“Delphi7-PageControl-Tab窗口化源码”提供了一种实现，使得这些页面...
Delphi PageControl组件用法
10-26
在设计阶段，你可以通过在PageControl上拖拽TabSheet来添加新的页面，也可以通过代码动态添加。 PageControl的主要属性包括： 1. **ActivePage**: 指示当前活动的TabSheet，即用户当前看到的页面。 2. **TabOrder**...
PageControl控件实现
11-24
本教程将详细介绍如何在Android中自定义一个PageControl控件，并通过ViewFlipper实现类似iPhone的滑动翻页效果。 首先，我们需要了解PageControl的基本功能。PageControl通常包含一系列的小圆点，每个圆点代表一个...
UserPageControlDemo.rar
08-13
这是一个基于C# 的自定义分页控件(例子中的ucPage自定义用户控件即是) 是可以通用的，它的所有参数是根据你的查询的数据源来进行赋值的。文件中包含了数据库建立测试数据表的sql脚本,本例使用的是SQLServer2008 这个建表脚本可以用在SQLServer2008/2008R2上查询的脚本在程序中可以看到 包括ROW_NUMBER() OVER(),COUNT() OVER()查询Rn和总数据个数的写法，这个是一步全部查询出来的Sql脚本写法 希望能够帮助到需要的朋友 谢谢
自绘制PageControl和TabControl
02-23
这个程序演示了怎样得到像Windows XP那样的PageControl和TabControl，很简单的。
C# 通用分页用户控件
u012887668的博客
08-22 3065
C# 通用分页用户控件
UIPageControl基本用法
u010486174的专栏
08-21 695
转载整理 1. 改变：原来PageControl的subview是UIImageView，现在变成了UIView. 2. 解决办法：重画。 3. 代码：（因为我的PageControl通过IB初始化的，所以下面的代码中没有初始化部分。你可以自行初始化） ? 1 2 3 4 5 6 7 8 9
分页控件(PageControl)的相关属性说明
weixin_30487317的博客
07-16 379
UIPageControl *pageControl = [[UIPageControl alloc] init]; pageControl.center = CGPointMake(w * 0.5, h - 20); pageControl.bounds = CGRectMake(0, 0, 150, 50); // 一共显示多少个圆点（多少...
有关pagecontrol控件的各种使用方法
weikun1021的专栏
11-29 797
日前发现"QQ医生"使用的pagecontrol控件的标签在屏幕的右边;而且使用了图片;特征求有关pagecontrol控件的各种使用方法!! 
c# c/s 框架的分页用户控件，还有事件
weixin_30929295的博客
01-09 106
using System; using System.Collections.Generic; using System.ComponentModel; using System.Drawing; using System.Data; using System.Linq; using System.Text; using System.Windows.Forms; name...
delphi将pagecontrol锁定在某一标签页不可切换
最新发布
12-15
Delphi中，PageControl通常用于组织多个并行显示的子窗体（TabControl或TForm）。如果你想要锁定PageControl，使其用户无法在各个标签之间切换，你可以通过以下步骤操作： 1. **设置TabIndex**：为需要锁定的标签页设置一个较高的TabIndex，这样它会默认位于其他可切换的标签之前。例如，如果你希望第二个标签不可切换，可以将其TabIndex设为最大值。 ```pascal TabControl1.TabIndexes := [0, MaxInt, 1]; // 第二个标签索引设为MaxInt，表示固定不动 ``` 2. **禁止选中事件**：防止用户直接点击标签切换。可以通过覆盖`OnClick`、`OnMouseUp`等事件处理程序来阻止标签选择行为。 ```pascal procedure TForm1.TabControl1Click(Sender: TObject); begin if Sender = TabControl1 then Exit; // 如果是TabControl1，就不再处理 inherited; end; // 类似地，覆盖鼠标上击事件 procedure TForm1.TabControl1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft and Sender = TabControl1 then Exit; // 阻止左键点击切换 inherited; end; ``` 3. **禁用外观调整**：虽然视觉上用户无法切换，但可以通过设置`TabPages`属性的`CanSelect`属性来进一步限制用户交互。 ```pascal for I := 0 to TabControl1.TabCount - 1 do TabControl1.Pages[I].CanSelect := False; ``` 请注意，这种方法仅限于视觉效果的锁定，用户的焦点仍然可以在页面之间移动，只是无法通过点击标签来进行切换。如果完全禁止所有交互，可能需要更复杂的窗口管理逻辑。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值