Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вызов процедуры сразу после Unit1_1.inc [Delphi, Windows]

Sakr © (2004-05-11 18:09:00)
Короче, в Unit1_1.inc выполняется некий код (инициализация) и нужно, чтобы моя процедура (например, MyProcedure, в модуле Unit2) выполнилась сразу же. Где мне к ней обратиться? Если писать в ЭТОМ модуле (Unit1_1.inc), то она там потом пропадает (при переоткрытии) ?

Sakr (2004-05-12 19:19:00) [1]
Спасибо, я попробую.

SPeller (2004-05-12 14:53:00) [2]

> Gandalf © (12.05.04 13:24) [3]

Это для проекта. Для формы только один inc генерится.

Gandalf (2004-05-12 13:24:00) [3]
Не забываем еще про остальные _*.inc они позволяют вводить свой код на разных этапах. Некоторые не подвержены авто-обновлению, они для нас.

SPeller (2004-05-12 02:27:00) [4]

> Delphi5.01 © (11.05.04 19:24) [1]
> Ochen prosto, samim logkim reshenie iavlaetsa:

Нифига не просто! Ты добавь таким образом вызов своей процедуры, а потом поменяй что-нить на форме.

По сабжу: сразу же после выполнения кода в unit1_1.inc вызывается Form1.OnFormCreate, внутри которого можно делать всё что угодно. Если интересует ещё раньше, то есть у формы событие OnBeforeCreate, но я им не пользовался, сказать что-то о нём не могу.

Delphi5.01 (2004-05-11 19:24:00) [5]
Ochen prosto, samim logkim reshenie iavlaetsa:

-------------
| unit1.pas |
-------------

procedure TForm1.MyProc;
begin
//do something with form1!
MsgOK('Na udivlenie rabotaet!');
end;

---------------
| unit1_1.inc |
---------------
...
Result.Form := NewForm( AParent, 'Form1' ).SetPosition( 192, 103 ).SetClientSize( 688, 453 );
Result.MyProc;
^^^^^^^^^^^
Applet := Result.Form;
Result.Form.Add2AutoFree( Result );
...

Jelau udachi! :-)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »