Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Фев

Ввод значения в два Edit’а

Posted by Chas under Delphi

ввел в Edit1 текст, во 2 изменился текст, но не менялся в 1, в то же время чтобы потом во 2 ввести текст, и изменился в 1, не меняясь во 2

raxp

procedure TForm1.Edit2Change(Sender: TObject);

begin

 with (sender as tedit) do begin

   if tag=0 then edit2.Text:= floattostr(strtofloatdef(edit1.Text, 0)*8)

    else edit1.Text:= floattostr(strtofloatdef(edit2.Text, 1)/8)

 end

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

 edit2.Tag:= 1;

 edit1.OnChange:= edit2change

end;

тема на форуме