تبليغاتX
راسک - صفحه کلید فارسی در زمان اجرای برنامه
راسک
راسک
صفحه کلید فارسی در زمان اجرای برنامه

دو تا 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;
+ نوشته شده در سه شنبه ششم شهریور 1386ساعت 16:3 توسط علی دانشمند |