TPageControl

← →
Faeton08 © (2004-09-14 08:29) [0]

Создаю на PageControl1 Динамически TTabSheet почемуто MemoSQL не отображается.

type
TTabSheetSQL = class(TTabSheet)
MemoSQL:TMemo;
private
database:string;
end;

TForm9 = class(TForm)
. . .
PageControl1: TPageControl;
. . .
var
Form9: TForm9;
SQLText:array [1..2,1..30]of string;

implementation

procedure TForm9.SpeedButton1Click(Sender: TObject);
var
Tabs: array of TTabSheetSQL;
i,j:integer
begin

. . .

for j:=1 to i-1 do
begin
SetLength(Tabs,j);
Tabs[j-1]:=TTabSheetSQL.Create(PageControl1);
Tabs[j-1].PageControl:=PageControl1;
Tabs[j-1].SetParent(PageControl1);
Tabs[j-1].database:=SQLText[2,j];
Tabs[j-1].Caption:="SQL"+IntToStr(j);
Tabs[j-1].Align:=alClient;
Tabs[j-1].MemoSQL := TMemo.Create(PageControl1);
Tabs[j-1].MemoSQL.Align:=alClient;
Tabs[j-1].MemoSQL.Lines.Text:=SQLText[1,j];
Tabs[j-1].MemoSQL.Visible:=true;
end;
. . .

end;

← →
Рамиль © (2004-09-14 08:37) [1]

Парента для MemoSQL забыл.

Спасибо

TPageControl Найти похожие ветки