вычисление с использованием Edit в Delphi

[TaYgA]

Всем доброго времени суток. Извените за некоректное название, не могу правельно сформулировать Делаю простенький конвертор величин. На форме расположено Edit1, Edit2 и кнопка вычислитить. Допустим Edit1 -сантиметры, Edit2- метры.
Вот мой код

procedure TConvertor.btOK1Click(Sender: TObject);
begin
  if Edit1.Text<>'' then begin
    x:=StrToFloat(Edit1.Text);
    x1:=x/100;
    Edit2.Text:=FloatToStr(x1);
  end;
  if Edit2.Text<>'' then begin
    x:=StrToFloat(Edit2.Text);
    x1:=x*100;
    Edit1.Text:=FloatToStr(x1);
  end;
end;

Как мне сделать, чтоб при нажатии на кнопку прога распознавала в каком Edit стоит курсор?!?!? Т.е. если курсор находится Edit2, тогда прога должна пропустить вычисление Edit1....

[Lemo]

Сообщение от TaYgA

Всем доброго времени суток. Извените за некоректное название, не могу правельно сформулировать Делаю простенький конвертор величин. На форме расположено Edit1, Edit2 и кнопка вычислитить. Допустим Edit1 -сантиметры, Edit2- метры.
Вот мой код

procedure TConvertor.btOK1Click(Sender: TObject);
begin
  if Edit1.Text<>'' then begin
    x:=StrToFloat(Edit1.Text);
    x1:=x/100;
    Edit2.Text:=FloatToStr(x1);
  end;
  if Edit2.Text<>'' then begin
    x:=StrToFloat(Edit2.Text);
    x1:=x*100;
    Edit1.Text:=FloatToStr(x1);
  end;
end;

Как мне сделать, чтоб при нажатии на кнопку прога распознавала в каком Edit стоит курсор?!?!? Т.е. если курсор находится Edit2, тогда прога должна пропустить вычисление Edit1....

Попробуйте заюзать
if edit1.setfocus=true then

[ОДИНОЧЕСТВО В СЕТИ]

if edit1.setfocus=true then

не сработает! даже не откомпилируется!
и

if edit1.Focused then

не будет работать потому что кнопка заберет фокус
но если использовать speedbutton вместо button то второй код сработает

[TaYgA]

Lemo, спасибо, работает
ОДИНОЧЕСТВО В СЕТИ, вы были правы