Printable View
با سلام تو برنامم می خوام وقتی مثلا دکمه bitbtn1 مربوط به فرم 1 را کلیک می کنم دستورات موجود در فرم دیگری انجام شود که دستور مورد نظر را به صورت زیر می نویسم اما پیغام می ده if رو به چه صورت باید بنویسم
نقل قول:
if form1.bitbtn1.click=true then
form2.caption:='';
دقيقاً بگين مي خواين چه دستوراتي اجرا شوند.
ولي اگه مثلاً دستوراتتون در يك تابع در فرم دومتون هست، ابتدا بايد تابع را در قسمت Public كلاس در فرم دوم معرفي كنيد. و سپس از فرم اول به اين صورت بهش دستيابي كنيد:
به همين سادگي. در ضمن ناراحت نشين، ولي اينجور سؤالاها رو در تاپيك مربوط به "سؤالات و آموزش براي مبتدي ها" كه در بالاي انجمن پين شده مطرح بفرماييد.کد:Form2.Test(arg1:integer);
موفق باشين
منظورم اینه که من می یام تو برنامم هنگام حذف یک رکورد از جدولم به جای اینکه پیغام را در showmessage بذارم دارم از یک فرماستفاده می کنم که دوعدد button هم استفاده کرده ام برای بلی و خیر که با دادن پیغام (آیا شما از حذف کردن مطمئن هستید ) اگر بلی زده شود باید به فرم اصلی برود و دستورات مربوط به حذف را در آنجا انجام دهد در ضمن این عمل حذف کردن را در خود دکمه بلی نمی نویسم چون من فقط از یک فرم (پیغام حذف ) دارم استفاده می کنم و هر زمان بخواهم در هر فرمی اطلاعاتی را حذف کنم به این فرم بیاید و بعد از زدن بلی به فرم ابتدایی برگردد و عمل حذف را در همان جا انجام دهد
ببخشید میشه بگید چرا از دستور زیر استفاده نمی کنید .نقل قول:
]کد:MessageDlg('Stringe morede nazar', mtWarning,[mbYes,mbno],0);
گاهی پیش میاد که برنامه نویس ترجیح میده از یک فرم اختصاصی برای نمایش پیغام استفاده کنه. اینکار ساده است.
کافیه فرمی که بعنوان message box طراحی کردید رو در حالت dialog قرار بدید یعنی در پنجره Properties گزینه BorderStyle رو روی bsDialog تنظیم کنید.
حالا ModalResult دکمه مورد نظر رو روی یکی از گزینه ها که مربوط به کاری که میخواید انجام بدید میشه تنظیم کنید. مثلا اگر دکمه OK هست، ModalResult رو روی mrOK قرار بدید. با اینکار نیازی به کدنویسی هم نیست و فرم بطور خودکار نتیجه رو ارسال میکنه.
برای فراخوانی فرم هم، اگر فرم مورد نظر رو در لیست auto-create forms قرار دادید که کافیه ShowModal رو فراخوانی کنید، درغیر اینصورت، اول یک instance از فرم میسازید و بعد مشابه روش قبل، فرم رو فراخوانی کرده و نمایش میدید. ترجیحا بهتره فرم رو از لیست مذبور خارج کنید و خودتون فرم رو ساخته و نمایش بدید تا هم از منابع سیستم بهتر استفاده بشه و هم برنامه دچار پیچیدگیهای بی دلیل نشه.
کد:if MyForm.ShowModal() = mrOk then
begin
// do whatever you want to do when user confirms the message
end;
می شه بگید چطور می تونم در این حالت دکمه های yes و no رو به بلی و خیر فارسی تبدیل کنم ممنون می شمنقل قول:
یه شاخه Program Files\Borland\Delphi7\Source\Vcl برید و یونیت Consts.pas رو باز کنید و یعد از یاز کردن پیغام بلی و خیر رو جای Yes و No بنویسید و ذخیره کنید.نقل قول:
نقل قول:
و اگه خواست برنامهاش رو به زبان انگليسی منتشر كنه چی!؟ و اگه خواست هم انگليسی رو داشته باشه و هم فارسی رو و .... چی؟؟
هر وقت خواستين تغييری رو تو يونيتهای دلفی ايجاد كنيد، سعی كنيد حتماً يك كپی از اون برداريد و داخل شاخه برنامهی خودتون بذاريد و تغييرات رو اعمال كنيد و استفاده كنيد.
اين راهش نيست.
توضيحات آدرنالين رو هم با دقت بخونيد. ميتونيد از تابع CreateMessageDialog برای ساختن و تغيير يك Message Box استفاده كنيد و اون رو به هر شكلی كه دوست دارين دربيارين.کد:http://delphi.about.com/od/objectpascalide/l/aa020502a.htm
کد:http://www.delphi3000.com/articles/article_1678.asp?SK=
اگر شما از اين راه استفاده نكردين دليل بر اين نيست كه اين راه غلطه . قبل از رد كردن نظر ديگران يك بار امتحان كنيد . شما بايد اين يونيت رو كپي كنيد و هر بار اين يونيت رو Add كنيد تو برنامه نه روي يونيت اصلي . فكر مي كنم خيلي واضح بود.نقل قول: