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




Вниз

КТО НИБУДЬ!!! ВОПРОС!!! 


Sound   (2002-03-23 01:46) [0]

Есть код (NewMemo:TfsMemo;NewTabSheet:TTabSheet) котороый конструирует новые TabSheet"ы в которых находятся Memo:

// Если Количество страниц не превышает допустимое
if PageControl1.PageCount<50 then
begin
NewTabSheet:=TTabSheet.Create(PageControl1);
NewTabSheet.PageControl:=PageControl1;
NewTabSheet.Caption:="Untitled"+IntToStr(PageControl1.PageCount);
NewTabSheet.Show;
NewMemo:=TfsMemo.Create(fsMemo1);
NewMemo.Parent:=NewTabSheet;
NewMemo.Align:=alClient;
NewMemo.ScrollBars:=ssBoth;
NewMemo.WordWrap:=false;
end;

Вопрос: Как обратится к Memo на активной странице ( PageControl1.ActivePage)?



lipskiy   (2002-03-23 01:53) [1]

Можно через
(PageControl1.ActivePage.FindComponent("Memo1") as TMemo). ...
Но тогда при создании Мем им нужно давать имена (можно одинаковое вероятно).



Sound   (2002-03-23 01:58) [2]

А как им при создании разные имена давать?



Лёша   (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;



Anatoly Podgoretsky   (2002-03-23 11:02) [4]

Следующий вопрос "Как Parent имя давать"

Давай любое имя, которое ты посчитаешь нужным, и желательно всем объектам, которые ты создашь, у всех твоих объектов это свойство Name, ну а давать лучше с помощью оператора ":="

Object.Name := "УникальноеИмя"
Иникальное имя можно сгенериваровать с помощью счетчика
UniNameID := UniNameID + 1; // сзразу после создания Memo
Name := "Memo" = IntToStr(UniNameID);

Непонятно зачем передаются NewMemo и NewTabSheet если они используются только локально, наверно у тебя что то с постановкой задачи не в порядке.




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




Наверх





Память: 0.72 MB
Время: 0.023 c
14-9645           Лана Розанова         2002-02-09 07:58  2002.04.04  
Защита программы


1-9467            Georg                 2002-03-25 16:04  2002.04.04  
RXLib


14-9603           savva                 2002-02-21 10:32  2002.04.04  
ПОЗЛРАВЛЯЕМ НАШИХ ХОККЕИСТОВ С ПОБЕДОВ НАД ОЛИМПИЙСКИМИ ЧЕМПОНАМИ ИГР В НАГАНО!


3-9381            pusrg                 2002-03-11 20:48  2002.04.04  
Сортировка кешированной таблицы


6-9595            SemFLY                2002-01-21 19:31  2002.04.04  
Событие ClientSocketRead