|
В общем, если по цепочке передавать слишком сложно, создайте кодеюнит со свойством SingleIstance = Yes. В нем две функции:
SetNo(No:code)
Value := No;
GetNo(var No:code)
No := Value;
После создания возможности вызываете первую, потом из главной формы - вторую, передавая в нее в качестве параметра переменную, куда хотите получить номер.
|