VPF::Перебор и возврат нужного компонента

CHERRY

Дата 27.8.2012, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

На форме несколько компонентов, среди них (например) 2 TMemo и 1 TRichEdit.
Мне нужен компонент, который сейчас имеет фокус.

Код


function TfmMain.GetComp:TComponent;
var i: integer;
Begin
 Result:=Nil;
 for i := 0 to ComponentCount - 1 do
 Begin
  if Components[i] is TMemo then
     if (Components[i] as TMemo).Focused then Result:=Components[i];

  if Components[i] is TRichEdit then
     if (Components[i] as TRichEdit).Focused then Result:=Components[i];

 End;
End;

в результате имеем:

Код


 if GetComp<>Nil then   Showmessage(GetComp.GetNamePath);

код вернет Memo1 или Memo2 или RichEdit1 (понятно, если так названы компоненты).

Теперь вопрос.
Хотелось бы написать функцию, возвращающую сам компонент(экземпляр компонента), обратившись к которому
получаем доступ к свойствам оного.
Типа - GetComp.Lines

--------------------

Трясу надежды ветвь, но где желанный плод?

CHERRY

Дата 27.8.2012, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

Может быть поможет Tag? Никогда не пользовался этим свойством.

--------------------

Трясу надежды ветвь, но где желанный плод?

northener

Дата 28.8.2012, 01:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(CHERRY @ 27.8.2012, 19:42

)

Теперь вопрос.
Хотелось бы написать функцию, возвращающую сам компонент(экземпляр компонента), обратившись к которому
получаем доступ к свойствам оного.
Типа - GetComp.Lines

А в чём проблема? И TMemo и TRichEdit имеют свойство Lines : TStrings. Смотрим в хелпе и видим, что данное свойство введено в TCustomMemo.
Копайте дальше сами.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »