Компоненты в 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 это текст, который нужно добавить.

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

Always at your service ! :)

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

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

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

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