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

как правильно описать функцию   Найти похожие ветки 

← →
vint   (2002-02-21 13:24) [0]

Уважаемые мастера, помогите пожалуйста:
Есть функция - в которой например Form1.Label1.Caption := "..."
Как вызвать эту функцию в другой форме например Form2 в которой есть тоже Label1, чтобы Form2.Label1.Caption := "..."
т.е. разные формы имеют одни и теже компоненты и для них нужна одна функция.

---

← →
Виктор Щербаков ©   (2002-02-21 13:31) [1]

Для поиска компонента на форме по свойству Name можно воспользоваться методом FindComponent.

---

← →
Юрий Зотов ©   (2002-02-21 13:40) [2]

Можно передавать через параметры.

procedure SetLabelCaption(Lbl: TLabel);
begin
Lbl.Caption := "..."
end;

И вызов:
SetLabelCaption(Form1.Label1);
SetLabelCaption(Form2.Label1);

---

← →
Vint   (2002-02-21 14:13) [3]

Спасибо !!!

---

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

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



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