Текущий архив: 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.016 c