• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: язык и маил

как (принудительно) указать раскладку клавиатуры (язык) для поля edit?
как проверить на ввод email?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: язык и маил

раскладка клавиатуры
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;
Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: язык и маил

Да это понятно, для простой проверки достаточно.

Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: язык и маил

Да, надо бы, попробую добавить. Спасибо.

Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: язык и маил

Добавил 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;
Dmitry.