کامپوننت نمایش پیغام فارسی (فارسی کردن پیغام های دلفی)

دوستان در همین سایت نحوه فارسی کردن پیغام ها رو به فارسی گذاشتن. حالا با یه کمی تغییر و تبدیل اونها به یه کامپوننت، اینجا میزارم. فقط کافیه اون رو روی فرم بزارید و بعد از دستوراتی مثل زیر استفاده کنید.

کد:

---

FMessageDlg('', mtWarning, mbOKCancel);

FShowMessage('');

---

از دوستان خواهشمندم این کامپوننت رو کاملتر کرده و در همین پست قرار بدن.

لینک دانلود سه تا کامپوننت ساده (لینک اصلاح شده)
[HTML]http://rapidshare.com/files/145541038/3simplecomponent.zip.html[/HTML]

کامپوننت NumEdit و DBNumEdit نیز همراه این فایل هستند و همونطوری که از اسمشون پیداست فقط اجازه ورود عدد رو میدن.

دوست عزيز لينكتون مشكل داره، ميگه زمانش گذشته، اگه ميشه روي يه سرور ديگه مثل Rapid آپلودش كنيد.

[HTML]http://rapidshare.com/files/145541038/3simplecomponent.zip.html[/HTML]

برای فارسی کردن پیغام ها یونیت هم وجود داره که با Add کردن این یونیت تو برنامه میتونید پیغام هارو فارسی کنید.

كافيه اين پروسجرو استفاده كنيد

نقل قول:

---

Procedure TTools.ShowMsg(St:String);
Var
HelpBox : TForm;
begin
Beep;
HelpBox:=CreateMessageDialog(St,mtInformation,[MbOk]);
HelpBox.Font.Charset:=ARABIC_CHARSET;
HelpBox.Caption:='íÇã';
HelpBox.BiDiMode:=bdRightToLeft;
TButton(HelpBox.Components[2]).Caption:='ÈÇҐÔÊ';
HelpBox.ShowModal;
HelpBox.Free
End;

---

نقل قول:

---

نوشته شده توسط Hadi_0261 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

برای فارسی کردن پیغام ها یونیت هم وجود داره که با Add کردن این یونیت تو برنامه میتونید پیغام هارو فارسی کنید.

---

لطف می کنی یونیتی رو که گفتی اسمشو بگی یا لینک دانلودشو بدی!!!!!

سلام
ميشه بگي چطوري از اين فايل ها استفاده كنم و چطوري به برنامم اضافشون كنم.من خيلي نيست كه با دلفي كار مي كنم