VPF::Быстро обновить все визуальные компонент

Grol

Дата 26.2.2006, 05:08 (ссылка)

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

Загрузка ...

Бывалый

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

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

Вот такой вопрос: На форме есть много всяких различных компонентов, необходимо одним махом их обновить, т.е. сделать всем Refresh.
Вот допустим куча Button'ov и Image'ей. Делаю так:

Код


procedure TForm1.spSkinButton1Click(Sender: TObject);
begin

Image1.Refresh;
Image2.Refresh;
Image3.Refresh;
Image4.Refresh;
...
ImageN.Refresh;

Button1.Refresh;
Button2.Refresh;
Button3.Refresh;
Button4.Refresh;
...
ButtonN.Refresh;
end;

Но это же наверно не правильно, вызывать одну и туже процедуру много раз, к тому же неудобно и много строчек... smile

Вообщем как можно обновить все компоненты одним махом, в том числе и форму?

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

Живи так, как будто тебе предстоит умереть завтра...Учись так, как будто тебе предстоит жить вечно.........

z-END

Дата 26.2.2006, 10:22 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Self.Repaint не помогает?

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Yanis

Дата 26.2.2006, 10:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Может быть InvalidateRect тебе поможет.
Добавлено @ 10:40
а точнее так:

Код


InvalidateRect(Handle, nil, True);

Добавлено @ 10:40

Цитата(Grol @ 26.2.2006, 05:08

)

Вообщем как можно обновить все компоненты одним махом, в том числе и форму?

А разве компоненты на форме не обновляются, если обновить форму?

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

*щёлк*

Poseidon

Дата 26.2.2006, 12:12 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to ControlCount-1 do controls[i].Refresh;
Refresh;
end;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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