PDA

View Full Version : سوال در مورد دستور ShowMessage ...؟



MSN_Issue
جمعه 07 خرداد 1389, 18:18 عصر
سلام به همه ی دلفی کاران عزیز
میخواستم ببینم چطور میشه ویژگی های یه مسیج-باکس رو تنظیم کرد ... ؟
ویژگی هایی مثل :
- عنوان
- دکمه هاش
- فونتش
- آیکونش
و ...
راستی من از دلفی 7 استفاده میکنم ... (گفتم شاید لازم بشه !)

با تشکر بسیار ... /.مسعود

pezhvakco
جمعه 07 خرداد 1389, 18:31 عصر
درود :

سوال در مورد دستور ShowMessage
ویژگی های یه مسیج-باکس رو تنظیم کرد ... ؟

کدوم یکی ؟
1)
MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons;
HelpCtx:Longint): Integer;


پارامتر اول پيامي است که مي خواهيم به کاربر نشان داده شود. پارامتر دوم نوع پيام و پارامتر سوم ترکيب دکمه هايي است که در پيام مي خواهيم ظاهر شود. MsgDlgBtn مي تواند يکي از مقادير mbOK, mbCancel, mbYes, mbNo, mbRetry و . . . را بپذيرد. براي اينکه بفهميم کاربر کداميک از دکمه ها را کليک کرده است مثل کد زير عمل مي کنيم:

If messagedlg ( 'Are you sure you want to delete book?' , mtWarning , mbOKCancel , 0 ) = mrOk Then
AdoTable1.Costumer.Delete ;


2)

MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;


3)

ShowMessage(const Msg: string);

فکر خوش .

vahid64
جمعه 07 خرداد 1389, 19:50 عصر
showmessage و messagebox خیلی فرق می کنن!
این تاپیک قدیمی می تونه کمکت کنه (http://barnamenevis.org/forum/showthread.php?t=71715)

حسین شهریاری
جمعه 07 خرداد 1389, 21:00 عصر
از Application.MessageBox هم میتونی استفاده کنین.


Application.MessageBox(caption,message,btns);

مثال:


if Application.MessageBox('','آیا تمایل دارید خارج شوید؟',mb_YesNo)=IdYes then
close;

MOJTABAATEFEH
دوشنبه 04 مرداد 1389, 16:20 عصر
درود :


کدوم یکی ؟
1)
MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons;
HelpCtx:Longint): Integer;
پارامتر اول پيامي است که مي خواهيم به کاربر نشان داده شود. پارامتر دوم نوع پيام و پارامتر سوم ترکيب دکمه هايي است که در پيام مي خواهيم ظاهر شود. MsgDlgBtn مي تواند يکي از مقادير mbOK, mbCancel, mbYes, mbNo, mbRetry و . . . را بپذيرد. براي اينکه بفهميم کاربر کداميک از دکمه ها را کليک کرده است مثل کد زير عمل مي کنيم:

If messagedlg ( 'Are you sure you want to delete book?' , mtWarning , mbOKCancel , 0 ) = mrOk Then
AdoTable1.Costumer.Delete ;
2)

MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

3)

ShowMessage(const Msg: string); فکر خوش .


دوست عزیز Messagebox از کدام یونیت استفاده می کنه؟
البته اینجوری من متوجه شدم از user32.dll استفاده میکنه
چطوری میشه دکمه هاش رو فارسی کرد؟

yaseriran
دوشنبه 04 مرداد 1389, 17:33 عصر
درود!

با استفاده از یونیتی که پیوست کردم و فقط با اضافه کردن اون به پروژه؛ پیام ها رو می تونید فارسی ببینید.

البته می تونید یونیت رو باز کرده و پیامها را نیز تغییر دهید.

پیروز باشید...


نغمه‌ی آزادی نوع بشــر سرا...