سلام
دوستان منيه برنامه نوشتم كه بايد از كاربر بوسيله پنجره اي غير از پنجره اصلي اطلاعات رو بگيره . از mesagebox
استفاده مي كنم اما دو تا مشكل باهاش دارم
1- كاربر نبايد بيشتر از 7 كاراكتر اطلاعات وارد كنه . چطور كاربر رو محدود كنم
2- فونت اون جالب نيست (البته اين خيلي ضروري نيست اما از زيبايي برنامه كم ميكنه)
دوستاني كه ميتونن در اين موارد كمك كنن و اگه نميشه كاري كرد راهي ديگه براي گرفتن اطلاعات معرفي كنن
ممنون و منتظرم
اگه منظورت از Message Box یه فیلد باشه که کاربر بتونه توش تایپ کنه میتونی کارهای زیر رو انجام بدی:
یک MaskEdit بذاری و Editmask اون رو بصورت
تنظیم کنی.کد:aaaaaaa;1;_
بعد دیگه کاربر بیشتر از 7 کاراکتر نمیتونه تایپ کنه!
:biggrin:
سلام
نه دوست من اره اشتباه از من بود
منظورم Inputbox ست
ممنون و منظرم
نظر من اینه که یک فرم به شکل InputBox درست کن.
حالا کلیه ی خصوصیاتش رو میتونی خودت تعیین کنی.
با ShowModal هم فرم رو نمایش بده.
موفق باشید.
سلام
خوب مي توني از هفت تا كاراكتر اول استفاده كنيد و به بقيه كار نداشته باشي
سلام دوباره
دوستان ميخواستم بدونم كومپوننتي نيست كه اوپشن هايي مثل اين چيزي كه من مي خواهم بده
ممنون
من تا حالا نديدم.
ولي راحتترين كارت اينه كه توي KeyPress كد بنويسي :
متغير i هم توي formShow مساوي با 0 قرار بده.کد:if key = VK_Back then dec(i);
if i = 7 then key := #0
else inc(i);
موفق باشي و خبرشو بده.
سلام
از تركيب ايده هاي سولجر و ادميرال استفاده ميكنم
يه فرم براي دريافت اطلاعات و همچنين دستور فرمت براي دريافت عدد
راستي دوستان من با دستور showmodule فرمم رو نمايش ميدم اما اگه كاربر اينتر رو قبل از كامل كردن اديت باكس ها بزنه فرم بسته ميشه چيكار كنم كه تا اديت ها كامل نشدن فرم بسته نشه ؟
ممنون
برای Form2 توی onclosequery مقدار Canclose رو False کن.
فقط وقتی توی Edit هفت کاراکتر وارد شده بود مقدار Canclose رو True کن.
ممنون دوست عزيز
چرا فرمت بسته میشه ؟
دکمه ای که گذاشتید رو خاصیت Kind ش چیه ؟
یعنی توی خاصیت Kind چی وارد کردید ، ویا آیا مقدار خاصیت Default دکمتون روی True تنظیم شده ؟
اگه جوابها رو بدید مشکلتون راحت حل می شه ...
خاصيت kind اون bkcustom هست و default اون هم yes
default اون رو به no تغيير دادم مشكل بسته شدن رد شد اما هنوز نميتونم دستور بسته شدن در صورت كامل بودن اديت باكس ها رو بنويسم
سلام
[/QUOTE]اما هنوز نميتونم دستور بسته شدن در صورت كامل بودن اديت باكس ها رو بنويسم[QUOTE]
براي اين كار به صورت زير عمل كن :
1. يه متغير از نوع Integer بساز ...
2. به جای ادیت از MaskEdit استفاده کن و همونطور که قبلا گفته شد مقدار Mask اون رو برای 7 رقم مقدار دهی کن.
3. موقع زدن دکمه تایید یا ... ( دکمه ای که برنامت رو می بنده ) متغییری که از نوع Integer ساختی رو بهش مقدار زیر رو بده :
برای مثال :
var
I: Integer;
begin
I:= MaskEdit1.GetTextLen;
end;
به وسیله کد بالا تعداد رقمها یا حروف داخل MaskEdit میشه مقدار متغیر I که تعریف کردی ...
حالا چک کن اگه I کمتر از 7 بود فرم رو نبند در غیر این صورت فرم رو ببند و بقیه ماجرا ...
اگه به مشکل برخوردی بگو ...
موفق باشی ...
يه كمي راهنماي دلفي رو خوندم كه گفته بود اگه بر روي فرمي كه با دستور showmodale نمايش داده ميشه يه دكمه باشه و خاصيت modaleresult اون mrok باشه وقتي كاربر دكمه رو فشار بده فرم خود بخود بسته ميشه و براي اينكه بسته نشه اين خاصيت رو به mrnone تغيير دادم و در رويداد onclick دكمه نوشتم (البته اين شرط براي نمونه است )
و مشكل حل شدکد:if editklbrgkind.Text='' then
formnewklbrgnum.Show
else
formnewklbrgnum.Close;
حالا دو تا سوال دارم
1- ايا اين دستواتي كه من نوشتم درسته منظورم show و close هست
2-بقيه گزينه هايي كه مربوط به modaleresult دكمه بود چه معني و كاربردي دارن ؟
ممنون و دستت درد نكنه آقا محمود عزيز
سلام
1. آره درسته ( ولي مربوط به همون كارتونه ؟ ) راستش متوجه نشدم مي خوايد چي كار كنيد ( چي رو مي خوايد نشون بديد با Show ؟نقل قول:
1- ايا اين دستواتي كه من نوشتم درسته منظورم show و close هست
2-بقيه گزينه هايي كه مربوط به modaleresult دكمه بود چه معني و كاربردي دارن ؟
2. من هم اطلاعات زیادی در مورد همه این مقدارها ندارم ولی ...
ببینید ...
هر فرمی که به صورت مودال نشون داده می شه یک ModalResult داره ...
وقتی شما یک دکمه روی یک فرم می زارید و اون رو به روش مودال نشون می دید ، و اگه ModalResult دکمه شما روی مثلا mrOK باشه ، بعد از کلیک رو اون دکمه ModalResult فرمتون هم به همون تغییر پیدا می کنه ...
با این روش می تونید بفهمید که توی اون فرمی که مودال نشون دادید چه دکمه ای زده شده ...
من تقریبا همین ها رو می دونستم ...
بازم اگه سئوالی بود در خدمتم ...
موفق باشید ...
ممنون و متشكرم