Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.08;
Скачать: CL | DM;

Вниз

Компоненты в Run Time   Найти похожие ветки 

 
Ann ©   (2003-08-25 15:40) [0]

Добрый день!
Может кто подскажет мне как решить такую проблему. В Run Time создаю закладки у PegeControla и на каждой закладке свое Memo. При обращении к закладкам у меня проблем не возниает, т.е. я легко перехожу к нужной закладке, а вот как вывести текст в memo на этой закладке.. Никак не могу сообразить как к нему (Memo) обратиться.. Подскажите пожалуйста..


 
clickmaker ©   (2003-08-25 15:42) [1]

PageControl.ActivePage.FindComponent("MemoName")


 
Skier ©   (2003-08-25 15:45) [2]

var
AMemo : TMemo;
begin
AMemo := PageControl.ActivePage.FindComponent("MemoN");
if Assigned(AMemo) then begin
with AMemo do begin
//your code goes here...
end; //with
end; //if
end; //


 
Ann ©   (2003-08-25 15:50) [3]


> Skier © (25.08.03 15:45) [2]


> PageControl.ActivePage.FindComponent("MemoN");

Выдает такое..
[Error] main.pas(130): Incompatible types: "TMemo" and "TComponent"
а что в этой строке происходит? никак не пойму..


 
Skier ©   (2003-08-25 15:53) [4]

Извини моя ошибка :
AMemo := TMemo(PageControl.ActivePage.FindComponent("MemoN"));

А вообще можно написать не завязываясь на имя MemoN.


 
Ann ©   (2003-08-25 15:55) [5]


> Skier © (25.08.03 15:53) [4]

спасибо большое, все прошло.. :)
а как написать не завязываясь на имя MemoN? :)


 
Skier ©   (2003-08-25 16:01) [6]


> а как написать не завязываясь на имя MemoN? :)

Использовать св-ва закладки (TTabSheet)
-ControlCount
-Controls[...]
is

И лучше написать процедуру что-то типа

procedure AddSomethingToMemo(APage : TTabSheet;
const ATextToAdd : String);
begin
//...........
end;

APage - это будет твоя активная закладка,
а ATextToAdd это текст, который нужно добавить.


 
Ann ©   (2003-08-25 16:03) [7]

Спасибо большое! :)


 
Skier ©   (2003-08-25 16:06) [8]

Always at your service ! :)


 
jack128 ©   (2003-08-25 16:12) [9]

Например, при создании memo на TabSheet"e писать так

TempMemo := TMemo.Create(TabSheet);
TabSheet.Tag := Integer(TempMemo);
....
Где то в другом месте кода

MemoA := Tmemo(PageControl1.ActiveSheet.Tag);
//Делай с мемо что хочешь



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

Текущий архив: 2003.09.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
1-24415
plotn
2003-08-26 10:22
2003.09.08
Хочется странного модального окна


14-24649
Study
2003-08-20 17:39
2003.09.08
AsPack


1-24508
GreySerg
2003-08-26 18:57
2003.09.08
Освобождается ли память при ListView.Destroy выделенная...


1-24539
DM.OMen
2003-08-26 19:45
2003.09.08
Туча вопросов, точнее 2 :)


1-24427
elf
2003-08-26 01:49
2003.09.08
extended