دستور show message

[persianboy_333]

با سلام خدمت دوستان عزیز

قالب کلب دستور showmessage رو میخواستم .اگه ممکنه متد هاشو هم یه کم واسم توضیح بدین اگه مثالی ازش دارین واسم بذارین ممنون میشم (واسه پروژه پایانیم لازم دارم)

با تشکر:بوس:

[fakhravari]

سلام
چنتا میزارم
var msg : Byte;
begin
msg := messageDLG ('áØÝÇ ÊÇÑíÎ ÑÇ ÈÕæÑÊ ˜Çãá æÇÑÏ ˜äíÏ',mtwarning,[mbok],0 );
end;
Application.MessageBox(' '+#13+#13+'11 '+#13+#13+'22','88')
if MessageDlg('Are you', mtConfirmation, [mbYes, mbNo], 0) = IDNO then
showmessage(
'ÔãÇ ãí ÊæÇäíÏ äÙÑÇÊ æ íÔäåÇÏ åÇí ÎæÏ ÑÇ ÈÑÇí ãÇ ÇÑÓÇá ˜äíÏ'
+#13+
'Email : @yahoo.com'
+#13+
'Email : _@yahoo.com'
+#13+
'websit : www..blogfa.com'
+#13
+#13+
'v( ÇÕÛÑ ˜æåí)Ü'
);
var
buttonSelected : Integer;
begin
buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);
if buttonSelected = mrOK then ShowMessage('OK pressed');
if buttonSelected = mrCancel then ShowMessage('Cancel pressed');
begin
if MyMessageDialog('ÈÓã Çááå ÇáÑÍãä ÇáÑíÍã', mtConfirmation, mbOKCancel,
['1', '2']) = mrOk then
ShowMessage('"1" clicked')
else
ShowMessage('"2" clicked');
end;

[soft-c]

با سلام خدمت دوستان عزیز

قالب کلب دستور showmessage رو میخواستم .اگه ممکنه متد هاشو هم یه کم واسم توضیح بدین اگه مثالی ازش دارین واسم بذارین ممنون میشم (واسه پروژه پایانیم لازم دارم)

با تشکر:بوس:
http://www.delphibasics.co.uk/RTL.asp?Name=MessageDlg

[Delphi 2010]

توی خود Help Delphi و نمونه برنامه هاش به صورت کامل آورده شده