关于TabSheet的问题。 设置相关的TabSheet的enable:=false; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 sorry,直接设置PageControl1的enabled 那样的话,整个Page不都不可编辑了吗? 我晕~~你自己看你的题目:如果我想让当我点到其中一页时,其他页为不可选状态,该怎么实现?谢谢了! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~拜托,你这和enabled:=false有什么不一样因为选择了之后,就不能再切换了!是么?有一首歌叫“only you”:)你这是“only one” void __fastcall TForm1::PageControl1Changing(TObject *Sender, bool &AllowChange){//在你需要的时候if(你的条件){AllowChange = false;//不能变}} 我倒……………………………………………………有这个属性:TabSheet1。Font你会用么 哎……等其他老大来解决吧你的分小弟不敢要了~~~:)sorry…… 你既然不想让其他页可以编辑,干脆在选中你想要的页时候,让其他页不可见,不就行了设置TABVISIBLE 为false,呵呵,一个建议 我也倒……………………………………………………TabSheet1.Font.color也改不了标题(caption)的颜色呀! to:seewell呵呵,要是那样可以的话,我就不用在这费劲的问人了! 我是想问,能不能改变除了当前页之外的其他页的Caption的颜色? 1. TabSheet2.Enabled:=false 使TabSheet2中的控件不可用,2. TabSheet2.TabVisible:=false 使TabSheet2不可见3. 改变Caption颜色,方法例: 首先,设置PageControl1的OwnerDraw为True 然后,处理PageControl1的OnDrawTab事件如下,自己完善:procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);begin With PageControl1 Do Begin If Active Then Canvas.Font.Color := clRed Else Canvas.Font.Color := clBlue; Canvas.TextRect( Rect, Rect.Left+5, Rect.Top+5, Pages[TabIndex].Caption ); End;end; delphi7开发的软件怎样支持英文操作系统? 招聘,招牌DEPHI程序员 谁有外挂开发的教程? 请问各位专家,有没有关于使用Excel的控件??? 如何解决控件安装时的问题 数据库控件共用问题 软件注册的问题请帮帮忙 classname:='winamp vl.x'是什么意思? 我用ActiveForm制作的数据库在本地可以在IE看得到,而在其他机器上却不能。该如何设置 我很菜可是我很温柔,有两个问题请帮助我!!!!!:) 请教您,细节方面要求蛮高的,谢谢。 Socket通讯的问题
如果我想让当我点到其中一页时,其他页为不可选状态,该怎么实现?谢谢了!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
拜托,你这和enabled:=false有什么不一样
因为选择了之后,就不能再切换了!是么?有一首歌叫“only you”:)你这是“only one”
bool &AllowChange)
{//在你需要的时候
if(你的条件){
AllowChange = false;//不能变
}
}
有这个属性:TabSheet1。Font
你会用么
你的分小弟不敢要了~~~:)sorry……
设置TABVISIBLE 为false,呵呵,一个建议
2. TabSheet2.TabVisible:=false 使TabSheet2不可见
3. 改变Caption颜色,方法例:
首先,设置PageControl1的OwnerDraw为True
然后,处理PageControl1的OnDrawTab事件如下,自己完善:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
With PageControl1 Do
Begin
If Active Then Canvas.Font.Color := clRed
Else Canvas.Font.Color := clBlue;
Canvas.TextRect( Rect, Rect.Left+5, Rect.Top+5, Pages[TabIndex].Caption );
End;
end;