صفحه کلید فارسی در زمان اجرای برنامه
دو تا Buton بذارید روی فرم و Caption اولی رو بذارید Fa و دومی هم En
حالا برای Button1 اینو بنویسید .
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout('00000429',KLF_ACTIVATE);
end;
و برای Button2 هم این .
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout('00000409',KLF_ACTIVATE);
end;
+ نوشته شده در چهاردهم بهمن 1385ساعت توسط حسین |
