Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];

Вниз

КТО НИБУДЬ!!! ВОПРОС!!!   Найти похожие ветки 

← →
Лёша   (2002-03-23 02:45) [3]

if PageControl1.PageCount<50 then
begin
NewTabSheet:=TTabSheet.Create(PageControl1);
NewTabSheet.PageControl:=PageControl1;
NewTabSheet.Caption:="Untitled"+IntToStr(PageControl1.PageCount);
NewTabSheet.Show;
With TfsMemo.Create(fsMemo1) do
begin
Parent:=NewTabSheet;
Align:=alClient;
ScrollBars:=ssBoth;
WordWrap:=false;
Name:= "fsMemo"+Parent.Name;
end;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c