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




Вниз

НУ НЕ МОГУ ПОНЯТЬ!!!! 


Sound   (2002-03-24 18:05) [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)?



olookin   (2002-03-24 18:11) [1]

NewMemo:=TfsMemo.Create(fsMemo1);

Что такое fsmeMo1?



Sound   (2002-03-24 18:12) [2]

TfsMemo считай обычное Memo только покрасивей (Компоненты Flat Style)



olookin   (2002-03-24 18:14) [3]

Ну считывай компоненты на форме... типа если TMemo то заадавай нужное извиняй за пропись я датый.....



Sound   (2002-03-24 18:17) [4]

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



olookin   (2002-03-24 18:18) [5]

Если


Ttabbednotebook.activepage="ActiveMYPAGE" then

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



olookin   (2002-03-24 18:19) [6]

пардо6 tckb Есщьзщтктеу is TMemo///



olookin   (2002-03-24 18:20) [7]

Тьфу прямо чтыдно...
Если TMemo то делакйте как я написал модет поможет...



olookin   (2002-03-24 18:22) [8]

а еще проще делай таг мемо равным чемулибо тогда прри обращени смотри этот таг и выделяй нужноеьмемо



Sound   (2002-03-25 10:23) [9]

Млин... Куча ошибок, но результата нет.



Sound   (2002-03-25 10:41) [10]

Помогите плз.



PVOzerski   (2002-03-25 11:13) [11]

С просто 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;




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




Наверх





Память: 0.73 MB
Время: 0.025 c
14-9606           Song                  2002-02-19 17:44  2002.04.04  
Продавать свои программы офицально и юридически правильно? Что для этого нужно?


1-9575            BlackJack             2002-03-23 19:36  2002.04.04  
Как сделать так чтобы при нажатии на 0 ряд(столбец) в DrawGrid ячейки западали вниз?


6-9589            iXANiA                2002-01-22 15:02  2002.04.04  
Именованный канал (named pipe)


14-9596           valievrf              2002-02-20 17:25  2002.04.04  
СРОЧНО!!! ДЕЛО ИСКЛЮЧЕНИЯ И НЕ ИСКЛЮЧЕНИЯ!!!!


14-9602           VuDZ                  2002-02-21 09:31  2002.04.04  
Вопрос сезона