VPF::Проблема с TMaskEdit - Форум программистов

Kesh

Дата 19.9.2004, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54

В программе происходит редактирование текста в компоненте TMaskEdit с маской !00:00.00;1;0
После этого считывается значение TMaskEdit.EditText
После этого при клике мышкой на другом компоненте выскакивает Ошибка!!! Просит нажать ESCAPE, чтобы обнулить значение, при нажатии Escape значения обнуляются и фокус переводится нормально...

Как избавиться от этой ошибки...

Заранее спасибо...

--------------------

Pakshin A. S.

Дата 19.9.2004, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

OK, понятно. Тупой компонент, если увидит символ "0" в записи, то щитает, что данные не врны, поэтому нужно найти замену "0". Скажем, если поставить простой пробел вместо нуля, то желаемый результат будет достигнут.

А! Вот ещё: большая буква "О" смахивает на ноль...

Kesh

Дата 19.9.2004, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54

Так фишка в том, что там и должны быть нули... И EditText должно быть с нулями... Ну вроде как для таймера...

--------------------

Pakshin A. S.

Дата 19.9.2004, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

А если самостоятельно сделать маску в TEdit через OnKeyPress?

Это сообщение отредактировал(а) Pakshin A. S. - 19.9.2004, 21:42

Kesh

Дата 19.9.2004, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54

Щас будем пробовать...
Добавлено @ 21:52
Проблема решена, просто символом заполнения поставил пробел, соотв. маска стала такой !00:00.00;1; ; Потом просто заполняется нулями текст... И вуаля... Все работает...

--------------------

Pakshin A. S.

Дата 19.9.2004, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Ну, если заикнулся про Edit, то выложу (для чего же писал)

Код


var
 CurPos: integer;
 EText: array [1..8] of char;

procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
 for i:=1 to 8 do
  EText[i]:='0';
 EText[3]:=':';
 EText[6]:='.';
 CurPos:=0;
 Edit1.Text:='';
 for i:=1 to 8 do
  Edit1.Text:=Edit1.Text + EText[i];
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 CurPos:=Edit1.SelStart;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 i:integer;
begin
 i:=CurPos + 1;
 if (i > 0) and (i < 9)
  then
   begin
    case Key of
     '0'..'9': if (EText[i] <> ':') and (EText[i] <> '.')
                then
                 EText[i]:=Key
                else
                 EText[i+1]:=Key;
     #8: {Надо бы сделать переход курсора на один или два символа назад. Просто времени сейчас нет...}
         if i > 1
          then
           if (Etext[i-1] <> ':') and (EText[i-1] <> '.')
            then
             EText[i-1]:='0'
            else
             EText[i-2]:='0';
    end;
   end;
 (Sender as TEdit).Text:='';
 for i:=1 to 8 do
  (Sender as TEdit).Text:=(Sender as TEdit).Text + EText[i];
 Key:=#0;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key = VK_Left) and (CurPos <> 0)
  then
   dec(CurPos);
 if (Key = VK_Right) and (CurPos) <= Length(Text))
  then
   inc(curPos);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »