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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Дочерняя форма 
:(
    Опции темы
Green
Дата 13.7.2005, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Есть форма_1 она является родительской для форма_2.
На форме_2 происходит событие OnClick.
Вопрос : как "отловить" это действие, что бы можно было с помощью этого события делать изменения на форме_1 ?

З.Ы. если пробывать писать в форме_2, действия OnClick, для формы_1 то 'Access violatin' smile
PM   Вверх
_hunter
Дата 13.7.2005, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
впиши наоборот smile


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Girder
Дата 13.7.2005, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 31
Всего: 155
Form1.FormClick(Self);


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Green
Дата 13.7.2005, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет

Код

unit Form1;
...

procedure Form1.FormClick(Self);
begin
...   //Действия
end;



Я правильно понял ?
PM   Вверх
_hunter
Дата 13.7.2005, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
нет. в форме_1 -- стандартный обработчик ( можеш по кнопке кликнуть он и появится )
а во второй пишеш тот код


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Green
Дата 13.7.2005, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
// форма_1 и форма_2 это два отдельных юнита которые существуют независимо
На форме_2 происходит событие(что-то там выбрали) и это событие !уже описано в форме_2(выполняются какие-то дейсивия для формы_2);
я же хочу как бы добавить действия еще и для фомры_1, которая является родительской для форма_2.

код
примерно это выглядит так...

Код

unit Form2;
...
procedure Form2.ItemChecked(...);
begin
...
EnableControls;//Для формы_2
end;




Код

unit Form1;
...
procedure Form1.OnPage(...);//просто там "не родной" компонент
begin
  Form2 := TForm2.Create(nil);
  with Form2 do
    begin
      Parent := Form1;
      ...
      Show;
    end;
end;  


как "отловить" действие 'ItemCheck'(форма_2), что бы можно было с помощью этого события делать изменения на форме_1(как каким обработчиком) ?
PM   Вверх
_hunter
Дата 13.7.2005, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

unit Form2;    
...    
procedure Form2.ItemChecked(...);    
begin    
...    
EnableControls;//Для формы_2    

Form2.doSomrThing();
end;

только щас заметил -- не Form2, а Form1 должно быть... т.е. Form1.doSomrThing();

Это сообщение отредактировал(а) _hunter - 13.7.2005, 17:49


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Green
Дата 13.7.2005, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
не наю что-то ручки не дают возможности найти ошибку smile
лана... всем спасибо !!!
PM   Вверх
YurikGL
Дата 14.7.2005, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 2
Цитата
Есть форма_1 она является родительской для форма_2.
На форме_2 происходит событие OnClick.
Вопрос : как "отловить" это действие, что бы можно было с помощью этого события делать изменения на форме_1 ?

З.Ы. если пробывать писать в форме_2, действия OnClick, для формы_1 то 'Access violatin' 


Если нужно общее решение, то создается специальное событие виндовс, которое отлавливается в другой форме... или посылается этой форме сообщение.

Вопрос, что мешает в обработчике Form2....onclick изменять параметры формы1 ? Если AV с нулями, то форма1 не существует...
--------------------
 
PM MAIL WWW ICQ   Вверх
Green
Дата 17.7.2005, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
неа AV не с нулями...
я делаю так
может это из-за этого...
Код

unit Form1;
...
procedure Form1.OnPage(...);//просто там "не родной" компонент
begin
  Form2 := TForm2.Create(nil);
  with Form2 do
    begin
      Parent := Form1;
      ...
      Show;
    end;
end;  


Код

unit Form2;
...
procedure Form2.ItemChecked(...);
begin
...
  EnableControls;//Для формы_2
end;


потом EnableContols...

Код

unit Form2;
....
procedure EnableControls;
begin
//Действия для Form2;
Form1.SomethingDo;
end;


Код

unit Form1;
...
procedure Form1.SomethingDo;
begin
//какие-то действия...
end;


вопрос есть ли в этом(приблизительном) коде реальные ошибки ??
если проверять Debugger-ом, то AV вылетает на строчке "//какие-то действия..."
просто проблема в том что в стоке "//какие-то действия..." ошибок быть не может !!!! smile
есть ли ошибки втом коде что я выложил ???
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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