Вызов процедуры сразу после Unit1

← →
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 они позволяют вводить свой код на разных этапах. Некоторые не подвержены авто-обновлению, они для нас.

← →
Sakr (2004-05-12 19:19) [5]

Спасибо, я попробую.

Вызов процедуры сразу после Unit1_1.inc Найти похожие ветки