이창희 께서 말씀하시기를...

> 페이지 컨트롤의 Tab Sheet를 동적으로 생성하여,

> 기존에 만들어져 있는 Form들을 생성된 Tab Sheet에 붙이려고 하는데,

> 그것이 델파이에서 기술적으로 가능한지 알고 싶습니다.

> 페이지 컨트롤에서 가능하지 않다면, 어떤 방법이 있나요?



참고 하세요..

Tabsheet을 사용하는 방법에 대해서는 잘 모르겠구요.

TabSet을 사용해서 가능합니다.



다음은 소스거든요 함 보세요..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Tabs, ExtCtrls;



type

TForm1 = class(TForm)

Panel1: TPanel;

TabSet1: TTabSet;

procedure FormShow(Sender: TObject);

procedure TabSet1Change(Sender: TObject; NewTab: Integer;

var AllowChange: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

FakePage: array[0..2] of TForm;



implementation



{$R *.DFM}



uses unit2, unit3, unit4;



procedure TForm1.FormShow(Sender: TObject);

var i: integer;

begin

FakePage[0] := TForm2.create(application);

FakePage[1] := TForm3.create(application);

FakePage[2] := TForm4.create(application);



for i := 0 to 2 do begin

FakePage[i].parent := panel1;

FakePage[i].TabOrder := panel1.TabOrder;

with panel1 do

FakePage[i].SetBounds(left + 2, top + 2, width - 4, height - 4);

end;

FakePage[TabSet1.TabIndex].show;

end;



procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;

var AllowChange: Boolean);

begin

FakePage[TabSet1.TabIndex].hide;

FakePage[NewTab].show;

end;



end.