مقداردهی متغییر یک فرم ، از طریق فرمی دیگر

[tik_tak]

با سلام
یه متغییر به نام x رو توقسمت var فرم2 تعریف کردم میخواستم این متغییر سراسری باشه

var
x:integer

یه کلیدم تو فرم 1 دارم میخوام وقتی رو این کلید کلیک بشه متغیرموجوددرفرم2 برابرعدد 1 بشه
میخوام بدوونم چه جوری میشه توفرم 1 به متغییر x فرم 2 دسترسی پیدا کرد و مقدار بهش داد

مرسی

[Mahmood_M]

اگه فرم 2 در فرم یک Use شده باشه ، میتونید از طریق فرم 1 به متغیرهای عمومی فرم 2 دسترسی داشته باشید ...
برای Use کردن فرم 2 در فرم 1 ، به فرم 1 برید و از منوی File گزینه Use Units رو انتخاب کنید ، بعد لیستی از Unit های موجود نمایش داده میشه ، فرم مورد نظر ( در اینجا فرم 2 ) رو انتخاب کنید و OK کنید ، بعد از این کار فرم 2 در فرم 1 Use میشه و می تونید به متغیرهای اون دسترسی داشته باشید ...

موفق باشید ...

[SYNDROME]

یک راه حل دیگر :
اگر متغییر Private بود می توانید با تعریف یک Function از متغییر فوق در فرمهای دیگر استفاده کنید.
مثلا متغییر شما vName است و شما با تعریف تابع زیر می توانید خروج آن را در فرمهای دیگر ببنید.


Function TForm1.fName : string;
Begin
Result := vName;
End;

بر ای Set کردن مقدار داخل آن هم می توانید دقیقاً برعکس کار فوق را انجام دهید.یک procedure تعریف کنید و مقدار را با یک پارامتر ارسال کنید و مقدار داخل procedure به vName تخصیص داده شود.
موفق باشید