Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.23;
Скачать: CL | DM;

Вниз

Определение раскладки   Найти похожие ветки 

 
DeMoN-777 ©   (2003-12-11 02:06) [0]

Мужики никто не подскажет как в эдит запретить вводить латиницу и кириллицу сразу вместе, а по отдельности можно. Не хочу велосипед изобретать. Может стандартная ф-ия есть ? или что своё завалялось...


 
Вованчик ©   (2003-12-11 08:24) [1]

попробуй так:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Length(Edit1.Text) > 0 then
if (Edit1.Text[1] in ["a".."z", "A".."Z", #8]) then
begin
if not (key in ["a".."z", "A".."Z", #8]) then
Key := #27;
end
else
if not (key in ["а".."я", "А".."Я", #8]) then
Key := #27;
end;


#8 - чтобы стирать можно было бакспейсом



Страницы: 1 вся ветка

Текущий архив: 2003.12.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
3-75113
Yan
2003-11-28 14:18
2003.12.23
Быстрая вставка записей


4-75444
Shaman O Mega
2003-10-29 16:01
2003.12.23
Semaphore vs Mutex


1-75262
WondeRu
2003-12-09 10:34
2003.12.23
String to float: запятая или точка?


9-75069
X-RayMan
2003-06-01 20:03
2003.12.23
Перспектива...


14-75318
Ske4er
2003-12-02 09:11
2003.12.23
Как долго можно не выключать компьютер?