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

Всем доброго времени суток. Извените за некоректное название, не могу правельно сформулировать Делаю простенький конвертор величин. На форме расположено 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....
3 ответа

Всем доброго времени суток. Извените за некоректное название, не могу правельно сформулировать Делаю простенький конвертор величин. На форме расположено 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 то второй код сработает


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