新人求助~~动态创建Tabsheet遇到困难！！Delphi

来源：百度知道 编辑：UC知道 时间：2024/05/31 10:46:29
我想用Pagecontrol动态创建Tabsheet，然后在动态创建的Tabsheet上动态创建一个Richedit。

请问 当Tabsheet发生切换时 怎样才能获得当前激活页上的Richedit，并更改其SelAttributes、PlainText等属性 希望哪位大侠能写一下关键代码 谢谢各位大侠。。。
delphi的

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;

type
TForm1 = class(TForm)
pgc1: TPageControl;
procedure FormCreate(Sender: TObject);
private
procedure OnChangeEvent(s:TObject);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
tab:TTabsheet;
richEdit:TRichEdit;
begin
for i:=0 to 5 do
begin
tab:=TTabSheet.Create(pgc1);
tab.Parent:=pgc1;
tab.PageControl:=pgc1;
tab.Caption:='tab' + IntToStr(i);
richEdit:=TRichEdit.Create(tab);
richEdit.Parent:=tab;
richEdit.Align:=alClient;
end;
pgc1.OnChange:=OnChangeE