Форум: "KOL";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
ВнизВызов процедуры сразу после Unit1_1.inc Найти похожие ветки
← →
Sakr (2004-05-11 18:09) [0]Короче, в Unit1_1.inc выполняется некий код (инициализация) и нужно, чтобы моя процедура (например, MyProcedure, в модуле Unit2) выполнилась сразу же. Где мне к ней обратиться? Если писать в ЭТОМ модуле (Unit1_1.inc), то она там потом пропадает (при переоткрытии) ?
← →
Delphi5.01 © (2004-05-11 19:24) [1]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! :-)
← →
SPeller © (2004-05-12 02:27) [2]
> Delphi5.01 © (11.05.04 19:24) [1]
> Ochen prosto, samim logkim reshenie iavlaetsa:
Нифига не просто! Ты добавь таким образом вызов своей процедуры, а потом поменяй что-нить на форме.
По сабжу: сразу же после выполнения кода в unit1_1.inc вызывается Form1.OnFormCreate, внутри которого можно делать всё что угодно. Если интересует ещё раньше, то есть у формы событие OnBeforeCreate, но я им не пользовался, сказать что-то о нём не могу.
← →
Gandalf © (2004-05-12 13:24) [3]Не забываем еще про остальные _*.inc они позволяют вводить свой код на разных этапах. Некоторые не подвержены авто-обновлению, они для нас.
← →
SPeller © (2004-05-12 14:53) [4]
> Gandalf © (12.05.04 13:24) [3]
Это для проекта. Для формы только один inc генерится.
← →
Sakr (2004-05-12 19:19) [5]Спасибо, я попробую.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c