Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

НУ НЕ МОГУ ПОНЯТЬ!!!! [D6, Win95/98]

Sound © (2002-03-24 18:05:00)
Вопрос я уже задавал но ответы все равно не понял объясните полегче!
Есть код (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)?

PVOzerski (2002-03-25 11:13:00) [1]
С просто tMemo у меня получилось вот такое...

procedure TForm1.Button2Click(Sender: TObject);
var
i:longint;
c:tControl;
begin
for i:=0 to pred(PageControl1.ActivePage.ControlCount)do
begin
c:=PageControl1.ActivePage.Controls[i];
if c is tMemo then
begin
tMemo(c).Lines.Add("Eureca!");
break;
end;
end;
end;

Sound (2002-03-25 10:41:00) [2]
Помогите плз.

Sound (2002-03-25 10:23:00) [3]
Млин... Куча ошибок, но результата нет.

olookin (2002-03-24 18:22:00) [4]
а еще проще делай таг мемо равным чемулибо тогда прри обращени смотри этот таг и выделяй нужноеьмемо

olookin (2002-03-24 18:20:00) [5]
Тьфу прямо чтыдно...
Если TMemo то делакйте как я написал модет поможет...

olookin (2002-03-24 18:19:00) [6]
пардо6 tckb Есщьзщтктеу is TMemo///

olookin (2002-03-24 18:18:00) [7]
Если

Ttabbednotebook.activepage="ActiveMYPAGE" then

for i:=0 to Apoplication.components.count-1 do
if application.components[i] is tedit do
something////

Sound (2002-03-24 18:17:00) [8]
Ага... Нихрена не понял...
Типа писать:
inc(ID)
NewMemo.Name:="Memo"+ID;
Когда обращаешся к Memo1.Undo, тода Delphi кричит что Memo1 не существует и компилировать не хочет

olookin (2002-03-24 18:14:00) [9]
Ну считывай компоненты на форме... типа если TMemo то заадавай нужное извиняй за пропись я датый.....

Sound (2002-03-24 18:12:00) [10]
TfsMemo считай обычное Memo только покрасивей (Компоненты Flat Style)

olookin (2002-03-24 18:11:00) [11]
NewMemo:=TfsMemo.Create(fsMemo1);

Что такое fsmeMo1?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »