TPageControl

← →
Andr © (2008-05-12 09:54) [0]

Здравствуйте. Подскажите, пожалуста, как в TPageControl создавать, удалять закладки. Ато из helpa я ничего не понял.

← →
MBo © (2008-05-12 09:59) [1]

А как пробовал?

← →
Andr © (2008-05-13 07:31) [2]

Вьехал сам. Только не понятно:

pcProg: TPageControl;

procedure TfmUTurnRout.btAddClick(Sender: TObject);
var
i: Integer;
begin
with pcProg do
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := pcProg; //Вот чего это такое?
Caption := "PageIndex: " + IntToStr(Pages[i].PageIndex);
end;
end;
И не работает свойство PageCount:
procedure TfmUTurnRout.btRegClick(Sender: TObject);
var
i: word;
begin
with pcProg do
for i := 0 to PageCount do
with Pages[i] do
Caption := "PageIndex: " + IntToStr(PageIndex);
end;
не останавливается цикл.

← →
Andr © (2008-05-13 07:34) [3]

Догнал:
>И не работает свойство PageCount:
PageCount- страницы быть не может.

← →
MBo © (2008-05-13 08:38) [4]

PageControl := pcProg; //Вот чего это такое?
назначение родителя

for i := 0 to PageCount - 1

← →
Andr © (2008-05-14 07:27) [5]

А теперь, если можно, подскажите как на вновь созданную страницу програмно выставить компонент, например TEdit. Вообщето мне надо выставить, мной созданный, фрейм. Пробовал как выше было указано, типа
PageControl := pcProg; фигня получилась. Или может взять переменную
myFr := TmyFr.Create(Self); но как привязать это к конкретной странице не знаю.

← →
MBo © (2008-05-14 08:09) [6]

Parent назначить

← →
Andr © (2008-05-19 07:46) [7]

Доый день. Уважаемый MBo большое спасибо за ваши подсказки, но у меня есть ещё вопрос. Вопрос всё по томуже фрейму. Parent всё зашибись, но как мне потом к нему обратиться. И я заранее не знаю сколько у меня будет страниц. Пишу следующее:
pcProg: TPageControl;
private
myFr: ^TmyFr;
implementation
обработчик:
with pcProg do
begin
with TTabSheet.Create(Self) do
begin
PageControl := pcProg;
Caption := "PageIndex: " + IntToStr(Pages[PageCount-1].PageIndex);
end;
New(FrInstr);
myFr^ := myFr.Create(Self);
myFr^.Parent := Pages[PageCount-1];
end;
При последующем обращении GetLastError говорит что переменная уже существует, естественно. В массив эти вещия запихвать не хотел, будут проблеммы при удалении страницы. Какой выход из этой ситуации? Да и если можно, в случае применения данного метода, как удалять переменную, я пытался:
with pcProg do
Dispose(Pages[ActivePageIndex].FrInstr);
фигня кончно. Вобщем полный слат.

>myFr: ^TmyFr
Не нужен ни крыжик, ни лишний указательный тип
Стоит почитать книги о Дельфи, а не писать в стиле старого Паскаля (Dispose)

> GetLastError говорит что переменная уже существует
это вряд ли

по рантайм-созданию статья (сейчас у меня этот сайт не отвечает, но починят, наверно)
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

Здравствуйте уважаемый MBo. Полазил по интернету, но так и не нашёл подходящей литературы. Вы не могли бы подсказать поконкретней где поискать.
С уважением, Andr.

Литературу на тему чего?

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