Скачать: CL | DM;

Быстро обновить все визуальные компонент на форме   Найти похожие ветки 

← →
Grol ©   (2006-02-26 05:08) [0]

Вот такой вопрос: На форме есть много всяких различных компонентов, необходимо одним махом их обновить, т.е. сделать всем 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;

Но это же наверно не правильно, вызывать одну и туже процедуру много раз, к тому же неудобно и много строчек...:)
Вообщем как можно обновить все компоненты одним махом, в том числе и форму?

---

← →
ЮЮ ©   (2006-02-26 05:16) [1]

А просто Refresh (как метод экземпляра TForm1) разве недостаточно?

---

← →
Grol ©   (2006-02-26 06:00) [2]

Нет этого недостаточно, т.к. если вызвать процедуру формы Refresh, то обновится только форма, а компоненты, которые находятся на ней не обновятся...:(

---

← →
Джо ©   (2006-02-26 06:04) [3]

procedure RefreshAll (AForm: TForm);
var
 I: Integer;
begin
 for I := 0 to AForm.ComponentCount-1 do
   if AForm.Components[I] is TControl then
     TControl(AForm.Components[I]).Refresh
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.976 c