Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

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


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]

Спасибо !!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.034 c
6-19287           Alexey_K              2001-12-15 16:51  2002.03.07  
Ping


14-19344          vopros                2002-01-24 14:30  2002.03.07  
Пришел счет на межгород..


1-19189           tiger_                2002-02-18 13:01  2002.03.07  
перетастивание (Drag&Drop)


6-19270           Cepera                2001-12-04 01:26  2002.03.07  
Дьявольские API функции для посчета траффика


3-19084           vladnt                2002-02-07 16:13  2002.03.07  
Ошибка BDE: Corrupt file-Other than header ...basa.db).