Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перебор компонентов на форме / 5 сообщений из 5, страница 1 из 1
06.10.2003, 15:04
    #32285164
bjohny
bjohny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор компонентов на форме
Привет. Такой вопрос....
Перебираю компоненты на форме. Задача в том, что при переборе компонентов необходимо менять сойство Text или Caption. Можно как нить проверить есть ли у найденного компонента такое свойство или нет(сделасть классово независимо, чтоб не проверять к какому классу принадлежит найденный компонент)???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:17
    #32285193
bjohny
bjohny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор компонентов на форме
Сам спрашивал сам отвечаю...
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;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:23
    #32285205
Cheboor
Cheboor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор компонентов на форме
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';
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:33
    #32285226
Sergey77
Sergey77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор компонентов на форме
if IsPublishedProp(AControl,'Caption') then
SetPropValue(AControl,'Caption'," текст ")
else
begin
if IsPublishedProp(AControl,'Text') then
SetPropValue(AControl,'Text', " текст ");
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:38
    #32285238
bjohny
bjohny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор компонентов на форме
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перебор компонентов на форме / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]