Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Передача ссылки на форму

Автор: chip_and_dayl 1.6.2010, 17:15

Есть следующая ф-ция:

Код


function InitForm (form: TForm):string;
begin
  if form.ClassName='TForm10' then
   begin
    Form.Caption:='Перевод';
    //Form.Label1.Caption:='dsffd';
    exit;
   end;
end;

Код


 Form.Caption:='Перевод';

Обращение к свойству формы Caption происходит удачно, а вот к Label1, который находится на форме не обращается, точнее компилятор кричит, что Лабел1 неизвестен

Код


Form.Label1.Caption:='dsffd';

Где я ступил?

Автор: Dom 1.6.2010, 18:32

Рискну предположить. Label1 есть у TForm10, но не у TForm. А передается в функцию именно TForm.

Автор: chip_and_dayl 1.6.2010, 18:47

Dom
Верно подмечено. Может есть ответ, как передать правильно ссылку на форму?

Я понимаю что в данном случае нужно вместо

Код


function InitForm (form: TForm):string;

Код


function InitForm (form: TForm10):string;

Но я буду передавать ссылку не только формы10, а и других

Автор: pseud 1.6.2010, 18:50

Код


if Form is TForm10 then
  TForm10(Form).Label1.Caption := 'куку';

Автор: chip_and_dayl 1.6.2010, 19:16

Спасибо всем smile