Как в 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;

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

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

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