如果在tab上放一个控件,如EDIT。当调用Edit.Show时,pagecontrol就会自动跳到该页。是否有办法组织此现象发生呢?
解决方案 »
- 如何将MDI子窗体放进父窗体的Panel中
- Delphi中有没有什么函数可以判断某数是否属于某个区间
- sha256算法,otp算法,仓储算法有谁知道,给介绍一下。有delphi源码最好。
- 通常%在语句里面表示什么呀?
- 冰天雪地赤身裸体720度超難度轉身跪求 查找最大记录的SQL语句写法.......................
- 如何连接两个ACCESS数据库,并从其中一个中导入数据表?
- 有关数据库缓存文件报错?(再次)有高分给!
- 如何实现窗体继承,并对此窗体上的控件进行控制,请给出例程,谢谢!
- 我做的这个软件只卖10元(源代码),大家必须邮寄。(收到该软件的源代不许供开,否则追究法律责任)朱小军方言
- 如何制作第三方控件使用的包?
- delphi 如何实现视频格式相互转换
- 数据库连接报错
如果ctrl的parent们里有是一个非激活的page,则不show
?
if pagecontrol1.activePage=edit.parent then edit.show;这样不知道符合你要求不。
begin
Result := (EDIT.Parent is TTabSheet) and (EDIT.Parent = pgc1.ActivePage);
if Result then
begin
EDIT.Show;
end;
end;
pgc1是TPageControl控件名
override的TControls的Show方法就可以
var AllowChange: Boolean);
begin
end;在这个事件里面控制AllowChange变量。
WC:TWinControl;
WC:=Edit.parent;
edit.parent:=Nil;
edit.Show;
Edit.parent:=Wc;