Скачать: CL | DM;

Вызов процедуры сразу после 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c