Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Перебор компонентов на форме
|
|||
|---|---|---|---|
|
#18+
Привет. Такой вопрос.... Перебираю компоненты на форме. Задача в том, что при переборе компонентов необходимо менять сойство Text или Caption. Можно как нить проверить есть ли у найденного компонента такое свойство или нет(сделасть классово независимо, чтоб не проверять к какому классу принадлежит найденный компонент)??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:04 |
|
||
|
Перебор компонентов на форме
|
|||
|---|---|---|---|
|
#18+
Сам спрашивал сам отвечаю... type TMyControl = class (TControl); .... procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := 0 to ControlCount - 1 do TMyControl (Controls ).Text := TMyControl (Controls ).Text + '*'; end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:17 |
|
||
|
Перебор компонентов на форме
|
|||
|---|---|---|---|
|
#18+
var I: Integer; begin for I := 0 to ControlCount - 1 do if controls is Tedit then Tedit(Controls).text:='Any Text' else if controls is Tlabel then TLabel(Controls).caption:='Any Caption'; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:23 |
|
||
|
|
start [/forum/topic.php?fid=58&msg=32285238&tid=2116585]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
43ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 238ms |
| total: | 370ms |
| 0 / 0 |
