Повторное нажатие Enter

[_-Re@l-_]

Вот есть такая процедурка:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      If (Key = #13) Then
      Begin
            If (Trim(Edit1.Text) <> '') and
               (Trim(Edit2.Text) <> '') and
               (Trim(Edit3.Text) <> '') and
               (Trim(Edit4.Text) <> '') Then
            Begin
                  Emitent:=Edit1.Text;
                  CostOfA:=StrToFloat(Edit2.Text);
                  POfComp:=StrToFloat(Edit3.Text);
                  CountA:=StrToInt(Edit4.Text);
                  Revenue:=POfComp/CountA;
                  Multiply:=CostOfA/Revenue;
                  CompCost:=CountA*CostOfA;
                  Edit5.Text:=FloatToStr(CompCost);
                  Edit6.Text:=FloatToStr(Revenue);
                  Edit7.Text:=FloatToStr(Multiply);
            End;
            If (Trim(Edit1.Text)<> '') and
               (Trim(Edit2.Text)<> '') and
               (Trim(Edit6.Text)<> '') and
               (Trim(Edit3.Text) = '') and
               (Trim(Edit4.Text) = '') and
               (Trim(Edit5.Text) = '') and
               (Trim(Edit7.Text) = '') Then
            Begin
                  Emitent:=Edit1.Text;
                  CostOfA:=StrToFloat(Edit2.Text);
                  Revenue:=StrToFloat(Edit6.Text);
                  Multiply:=CostOfA/Revenue;
                  Edit7.Text:=FloatToStr(Multiply);
                  Multiply:=0;
            End;
      End;
      If not (Key in ['0'..'9',',']) Then
      Begin
            If not (Sender = Edit1) Then
            Begin
                  If Key<>#08 Then Key:=#0;
            End;
      End;
end;

Когда я один раз нажимаю Enter, то всё нормально, процедура срабатывает. Однако, при изменении данных в Edit'ах, процедура не срабатывает, т.е. она просто не видит, что я нажал Enter! Почему же так?

[_SERGEYX_]

Повесь её на OnKeyDown

   If Key = 13 Then

[_-Re@l-_]

Я вообще сначала держал её на OnKeyDown, но там точно такой же результат.

В чём же дело?

[_SERGEYX_]

Значит одно из двух:
1. Фокус не находится на Edit1 в момент нажатия.
2. Не выполняется ни одно из этих условий...

    If (Trim(Edit1.Text) <> '') and
               (Trim(Edit2.Text) <> '') and
               (Trim(Edit3.Text) <> '') and
               (Trim(Edit4.Text) <> '') Then
//***********************************
          If (Trim(Edit1.Text)<> '') and
               (Trim(Edit2.Text)<> '') and
               (Trim(Edit6.Text)<> '') and
               (Trim(Edit3.Text) = '') and
               (Trim(Edit4.Text) = '') and
               (Trim(Edit5.Text) = '') and
               (Trim(Edit7.Text) = '') Then

[_-Re@l-_]

В том то и дело, что оба ваших пункта не верны, т.е. фокус там находится, и все условия выполняются.

[_SERGEYX_]

Такого не может быть даже теоретически...
Откуда ты знаешь, что условия выполняются если процедура не срабатывает?
Поставь точку останова в начале процедуры и проверь... Может в Edit пробел попадает?

[_-Re@l-_]

_SERGEYX_,там всё верно.
Вот например, я открыл прогу и заполнил все поля. Нажал Enter.Он мне показал результаты.
Но когда я это делаю во второй и последующие разы, просто с другими числами, то результат просто не выдаётся! Понимаете?

[asmodey1]

Упрощенный код проекта - в студию !

[russian-stalker]

Трассировка + Watch вам в помощь.

[bulldog5293]

Я вообще сначала держал её на OnKeyDown, но там точно такой же результат.

В чём же дело?

повесь на KeyPress