Printable View
مي خواهيم وقتي كه يك كنترل متني روي فرم فوكوس را در اختيار ميگيرد زبان صفحه كليد به طور اتوماتيك به زبان مشخصي مثلا فارسي تغيير وضعيت بدهد
در صورت امكان پاسخ خود را به آدرس ميل من بفرستيد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با استفاده از اين كد وقتي فرم ساخته ميشه زبان به فارسي تبديل ميشه.ههو يا علي مدد
procedure TForm1.FormCreate(Sender: TObject);
begin
LoadKeyboardLayout('00000429',KLF_ACTIVATE)
end;
سلام
البته قبلش بايد مطمئن باشيد كه زبان فارسي روي دستگاه نصب شده است
از آموزش های شما متشکرم.
نمیشه جواب نمیده
جواب داد با تویonshow form بگذاریم نه oncreat
من از این روال در OnEnter هر Edit استفاده می کنم و تا حالا جواب گرفته ام .
procedure SetFarsi;
var LName:pchar;
FLAYOUT:pchar;
begin
getmem(LName,30);
GetKeyboardLayoutName(LName);
if LName<>FLAYOUT then
Activatekeyboardlayout(HKL_NEXT,KLF_REORDER);
end;
منبع : ؟؟؟؟؟
تست شده : دلفی 7 و WinXP
LoadKeyboardLayout('00000429',KLF_ACTIVATE)
این دستور اصلی هست که استاندارد شده
اینو مثلا تو onenter ادیت باکست بذار درست میشه
برای زبان انگلیسی بجای 00000429 باید 000000409 بذاری
حله
LoadKeyboardLayout('00000429',KLF_ACTIVATE);
//00000429 FA
//00000409 EN
اساتید درست میگن
;(LoadKeyboardLayout('00000429',KLF_ACTIVATٍE
البته عدد 00000429 برای فارسی شدن و 00000409 هم برای انگلیسی شدنه که باید تو onshow فرم اصلیت با همون فرم اولیت بنویسیش.
سلام
دست شما درد نکنه با آموزش این نکات ریز