Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Передача ссылки на форму, не могу обращаться к компонентам формы 
:(
    Опции темы
chip_and_dayl
Дата 1.6.2010, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Есть следующая ф-ция:

Код

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';


Где я ступил?


Это сообщение отредактировал(а) chip_and_dayl - 1.6.2010, 17:16


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Dom
Дата 1.6.2010, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 121
Регистрация: 7.8.2005

Репутация: 1
Всего: 4
Рискну предположить. Label1 есть у TForm10, но не у TForm. А передается в функцию именно TForm.
PM MAIL   Вверх
chip_and_dayl
Дата 1.6.2010, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Dom
Верно подмечено. Может есть ответ, как передать правильно ссылку на форму? 

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

function InitForm (form: TForm):string;

Код

function InitForm (form: TForm10):string;


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


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
pseud
Дата 1.6.2010, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Код

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



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
chip_and_dayl
Дата 1.6.2010, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Спасибо всем  smile 


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.