Printable View
سلام
من تو فرم اولم یه متغیر از نوع integer دارم و می خوام تو فرم دومم ازش استفاده کنم .این متغیر رو در فرم اول در جایی که فرم تعریف شده قرار دادم :
کد:var
form1: TForm;
ok:integer;
implementation
.
.
.
تو فرم دومم اونو به صورت زیر استفاده میکنم :
کد:if form11.ok=1 then
ولی خطا می گیره و می گه from1 متغیری با نام ok نداره و این در حالیه که وقتی مینویسم .form1 تو لیست باز شده ok هم وجود داره
شما باید در بخش Public متغییر خودتون رو معرفی کنید که در کل پروژه قابل دسترس باشد
قبلا هم تاپیکی در همین مورد ایجاد شده:
جالب اینجاست که ایجاد کننده تاپیک هم خود شما بودی.کد:
لطفا تاپیک تکراری نزنید و اگر مشکل شما حل نشده، سوالاتی که به همون موضوع مربوط هست رو در جای خودش مطرح کنید.
موفق باشید
فرهاد جان اين سوال رو من در تاپيك برنامه هاي چند فرمي پرسيدم.سارا جان كاري رو كه مرد مباح گفتن انجام بدي درست مي شه من امتحان كردم.
شما به لینکی که من معرفی کردم برو، متوجه میشی
پیروز باشید
سلام
اين مشكل بسيار ساده حل ميشه شما مراحلي كه من ميگم به دقت انجام بده :
1- در قسمت Public فرم 1 ، يك متغير تعريف كن مانند كد زير :
2- حالا در فرم 2 ، مثلا روي فرم دوبار كليك كن و كد زير را بنويسکد:private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
DrXoX:integer;
implementation
يعني فقط بنويس Form1 بعد F9 بزنکد:procedure TForm2.FormCreate(Sender: TObject);
begin
Form1
end;
3- پيغام زير نمايش داده ميشه
روي Yes كليك كنکد:Form ' Form2' references form 'form1' declared in unit 'unit1' which is not in your USES list. Do you wish to add it?
4- خوب حالا form1 رو كه نوشته بودي پاك كن و به جاش نام متغير رو بنويس DrXoX
5- پايان
______________
روزي کـه تو آمــــدي به دنيا عــريان *** جمعي به تو خندان و تو بودي گريان
کاري بکن اي دوست که وقت رفتن *** جمعي به تو گريند و تو باشي خندان
دکتر جان.
اولا ورود شما رو تبریک میگم.
ثانیا به جای این کاری که شما گفتین و یک Run الکی میتونی از Alt+F11 برای باز شدن فرم Use Unit استفاده کنی و فرم دوم رو توی فرم اول Import کنی.
موفق باشی.
ای بابا...
دوستان عزیزم، چرا تاپیکی که جوابش قبلا مشخص شده رو شلوغ میکنید؟
بی خیال شین دیگه
ضمنا به کسی هم بر نخوره
ممنون از راهنمایی های شما دوستان عزیز
مشکلم حل شد
سلام
شرمنده اشتباه از من بود
farhad_g1 و مرد مباح جان ما اومديم تو اين فروم ها تا مشكلات همديگرو حل كنيم اگه قرار باشه با يه حرف كوچيك به كسي بربخوره كه اين فروم ها خيلي سريع به محلي براي دعوا و ... تبديل ميشه و من مجددا بابت اشتباهي كه كردم معذرت خواهي مي كنم
_________
روزي کـه تو آمــــدي به دنيا عــريان *** جمعي به تو خندان و تو بودي گريان
کاري بکن اي دوست که وقت رفتن *** جمعي به تو گريند و تو باشي خندان
vbmenu_register("postmenu_1628981", true);