Поиск видимого компонента

[supertony]

У меня есть PageControl и несколько табов в нем.
В некоторых табах есть компонент TMemo.
Мне нужно по кнопки очистить видимый TMemo - т.е. тот который находится в активном табе. Остальные не трогать.

[Аватар]

PageControl.ActivePage.Controls - свойство-массив контролов на активной TabSheet
PageControl.ActivePage.ControlCount - кол-во этих контролов
В этом массиве и ищи свой Memo

[DuM4uK]

Вот пример из личного опыта.

перекалялкал код для тебя, возможны ошибки, но суть ясна.

Var
memo1:TMemo;

Memo1:=(pgctabs.ActivePage.FindComp onent('memo1') as TMemo);
Memo1.Clear;