تعیین زبان در Edit

[mahsa_kb]

سلام
من در برنامم یه edit دارم که می خوام کاربر فقط امکان تایپ انگلیسی رو تو اون داشته باشه و اگه خواست فارسی یا هر زبان دیگری تایپ کنه error بده .

ممنون

[m-khorsandi]

از تابع APIی GetKeyboardLayoutName استفاده کن :




procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
KLName: array[0..8] of Char;
begin
GetKeyboardLayoutName(KLName);
if KLName <> '00000409' then
begin
Key := #0;
ShowMessage('Error...');
end;
end;