主页 / 问题 / 843159
Accepted
Konstantin78
Asked:2020-06-17 21:15:26 +0000 UTC2020-06-17 21:15:26 +0000 UTC

使用掩码时在 TDBEditEh 中显示丑陋的值

  • 772

我在 Firebird 数据库中有一个表，其字段类型为“NUMERIC (9,1)”。
对我来说，在应用程序中，用户不能在整数部分输入超过两位数，在小数部分输入 1。
为此，我使用“TDBEditEh”组件，因为 它有一个属性“EditMask”，我设置为“99.9;_”

一切都会好的，但是当光标放在“TDBEditEh”窗口时，它看起来不是很好，显示的值，见图。 在此处输入图像描述

你能以某种方式修复它吗？那些。这样“8”就不会向左移动并且看起来不像“8_”。
老实说，我认为属性http://www.ehlib.com/online-help/frames.html?frmname=topic&frmfile=index.html可能会解决这种情况 - 但它没有帮助。

delphi

1 个回答

  1. Best Answer

    我可以使用常规 TEdit 提供以下解决方案：

    已更正，可能不是最优雅的解决方案，但完全符合您的条件

    procedure TForm1.Edit1Click(Sender: TObject);
begin
  //устанавливаем курсор в конец
  Edit1.SelStart := Length( Edit1.Text );
  Edit1.SelLength := 0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //проверяем, если забыли ввести разделитель, то вводим сами
  if not(Key in [#8]) then
    if Length(Edit1.Text) = 2 then
      begin
        if not(Edit1.Text[2] = ',') then
          begin
            Edit1.Text:= Edit1.Text + ',';
            Edit1.MaxLength:= Length(Edit1.Text) + 1;
            //устанавливаем курсор в конец
            Edit1.SelStart := Length( Edit1.Text );
            Edit1.SelLength := 0;
          end;
      end;

  case Key of
    #8,'0'..'9' :  ; // цифры и <BackSpace>
    ',': // разделитель целой и дробной частей числа
      begin
        Edit1.MaxLength:= Length(Edit1.Text) + 2; // устанавливаем максимальное количество символов
        if Pos(',',(Sender as TEdit).Text) <> 0 then
          Key := #0; // запрет ввода второго разделителя
      end;
  else
    key:= #0;
  end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  //устанавливаем курсор в конец
  Edit1.SelStart := Length( Edit1.Text );
  Edit1.SelLength := 0;
end;
    • 1

相关问题