Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

Как в RUN-TIME добавить новую вкладку в TPageControl?   Найти похожие ветки 

← →
Volf_555   (2005-09-29 21:37) [0]

Как в RUN-TIME добавить новую вкладку в TPageControl? (Находится на вкладке Win32)

---

← →
Игорь Шевченко ©   (2005-09-29 21:44) [1]

procedure TForm1.AddPage (PageControl: TPageControl; ACaption: string);
var
 Page: TTabSheet;
begin
 Page := TTabSheet.Create(Self);
 Page.PageControl := PageControl;
 Page.Caption := ACaption;
end;

---

← →
Piter ©   (2005-09-29 22:04) [2]

Игорь Шевченко ©   (29.09.05 21:44) [1]

почему With не юзаем? :)

---

← →
Игорь Шевченко ©   (2005-09-29 22:12) [3]

Piter ©   (29.09.05 22:04) [2]

Я полный код приведу, ладно ?

function TDesignerComponentPages.NewPage(
 const APage: String): TDesignerComponentPage;
var
 I : Integer;
 PageControl : TPageControl;
begin
 Result := TDesignerComponentPage.Create;
 //TODO: Не очень хорошее решение. Может, передавать PageControl параметром ?
 PageControl := TfModelSpaceDesigner(FForm).PageControl;
 for I:=0 to Pred(PageControl.PageCount) do
   if PageControl.Pages[I].Caption = APage then begin
     Result.Page := PageControl.Pages[I];
     Exit;
   end;
 //Не нашли подходящей закладки, создаем новую
 Result.Page := TTabSheet.Create(FForm);
 Result.Page.PageControl := PageControl;
 Result.Page.Caption := APage;
end;

---

← →
Piter ©   (2005-09-29 22:22) [4]

Игорь Шевченко ©   (29.09.05 22:12) [3]

Игорь, вам надо отдохнуть, однозначно :)
Выпить водочки, сходить в баньку, ну не знаем там :) Устроить relax :)

---

Страницы: 1 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.141 c