Topic: язык и маил
как (принудительно) указать раскладку клавиатуры (язык) для поля edit?
как проверить на ввод email?
My Visual Database → Russian → язык и маил
как (принудительно) указать раскладку клавиатуры (язык) для поля edit?
как проверить на ввод email?
раскладка клавиатуры
http://myvisualdatabase.com/forum/viewtopic.php?id=1455
проверить емейл проще всего так
procedure frmAbonent_bOK_OnClick (Sender: TObject; var Cancel: boolean);
begin
if (Pos('@', frmAbonent.edEmail.Text) = 0) or (Pos('.', frmAbonent.edEmail.Text) = 0) then
begin
Cancel := True;
frmAbonent.edEmail.SetFocus;
ShowHint(frmAbonent.edEmail, 'Введите емейл');
end;
end;
Да это понятно, для простой проверки достаточно.
Да, надо бы, попробую добавить. Спасибо.
Добавил GetKeyboardLayout функцию в бета версию
https://www.dropbox.com/s/to42wv53pdc0g … a.zip?dl=0
пример использования. В данном текстовом поле раскладка автоматически переключается на русский и восстанавливается при потери фокуса ввода.
procedure Form1_edFirstName_OnEnter (Sender: TObject);
begin
Form1.edFirstName.Tag := GetKeyboardLayout;
ChangeKeyboardLayout(LANG_RUSSIAN);
end;
procedure Form1_edFirstName_OnExit (Sender: TObject);
begin
if Form1.edFirstName.Tag <> 0 then ChangeKeyboardLayout(Form1.edFirstName.Tag);
end;
My Visual Database → Russian → язык и маил
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi