1怎样动态地使PageControl的TabSheet页面可点选或不可点选
解决方案 »
- delphi中用Richtext控件写入sql server的一个Text字段,用Asp读取时不能正常显示,何解?
- 初接触 CGI 编程,哪位高人能提供一个例子以及调用方法,先谢了
- 【申请】小弟要申请Windows SDK/API的版猪职务,当不上也散分啦!【散分444】
- 如何在自己自定义的类里封装TADOQuery等类
- 来者有分:报表打印问题
- 读注册表的问题
- 用Delphi可否自制像InstallShield樣的程序
- 紧急求助一个小问题!access无这样的函数?
- 自编一浏览器,使用如下语句“var Document : IHtmlDocument2;”但不能通过编译,是何原因?
- ****为什么?:事务处理有些情况下好用,而有些情况下有问题?????
- 请问struct{}的结构问题,如何变成delphi的结构?
- 想散分都很难
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
procedure PageControl1Change(Sender: TObject);
private
At : integer ;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex = 1 then
PageControl1.ActivePageIndex := at;
at := PageControl1.ActivePageIndex;
end;end.
不行吧!你这是一个变通的做法而已
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex = 1 then
PageControl1.ActivePageIndex := at;
at := PageControl1.ActivePageIndex;
end;
end.
中
at := PageControl1.ActivePageIndex;
应该调到前面吧!