Перейти к содержанию
Fire Monkey от А до Я
  • 0

[Android] TComboEdit, криво работают события KeyUp и KeyDown


estra

Вопрос

Почему у TComboEdit события KeyUp и KeyDown срабатывают только при вводе числовых значений ('0'..'9') и не срабатывает при вводе других символов?

 

Проверить очень просто

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Edit;

type
  TForm1 = class(TForm)
    ComboEdit1: TComboEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure ComboEdit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
    procedure ComboEdit1KeyDown(Sender: TObject; var Key: Word;
      var KeyChar: Char; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.ComboEdit1KeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
   Label2.Text := 'KeyChar = ' + KeyChar + #13 +
                  'Ord( KeyChar ) = ' + IntToStr( Ord( KeyChar ) ) + #13 +
                  'Key = ' + IntToStr( Key );
end;

procedure TForm1.ComboEdit1KeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
   Label1.Text := 'KeyChar = ' + KeyChar + #13 +
                  'Ord( KeyChar ) = ' + IntToStr( Ord( KeyChar ) ) + #13 +
                  'Key = ' + IntToStr( Key );
end;

end.

Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...