PageControl问题!!!!!!!!!!!!!!!!!! PageControl上可以建立很多页面 单击就可以切换 我现在要做的是单击不能切换 但可以通过程序切换页面 请告诉我怎么做 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Button1: TButton; procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);begin AllowChange := false;end;procedure TForm1.Button1Click(Sender: TObject);beginPageControl1.ActivePageIndex := 1;end;end. 求此控件! 简单问题 竭诚为你服务:绝对无偿提供FTP空间,内详! Delphi 能否控制MSN收发文件? 数据库备份时,怎样得到数据库服务器的所有目录,以确定备份存储目录? 请教utf8 怎样转换成GB2312和BIG5,多谢各位帮助 table.EmptyTable 的问题 讲述一段打工辛酸经历 InternetExpress中的定制标识符不能触发? 如何使用自己的鼠标指针? 字符串比较循环 截取窗体部分地方作为图片保存的代码
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Button1: TButton;
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
AllowChange := false;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 1;
end;end.