как правильно описать функцию

← →
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]

Спасибо !!!

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