[samuilius]

и + к тому же если все поставить на обработчик edit2Change то при добавлении значения в edit4 в label изменения не произойдут пока фокус не встанет на edit2

[MiraLaklamon]

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

но ведь если я поставлю код в обработчик edit2Change разве будут происходить изменения при добавлении значения в edit4 ?

Конечно не будет. В инспекторе объектов, просто укажи тот же обработчик для edit4 (и для других edit которым нужно).

[samuilius]

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

Конечно не будет. В инспекторе объектов, просто укажи тот же обработчик для edit4 (и для других edit которым нужно).

то есть вот так ?

Код:

procedure TForm1.edt2Change(Sender: TObject);
begin
a := StrToFloat(edt1.Text);
b := StrToFloat(edt2.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.
//--------------------------------------------------------
procedure TForm1.edt4Change(Sender: TObject);
begin
a := StrToFloat(edt3.Text);
b := StrToFloat(edt4.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.
//--------------------------------------------------------------
procedure TForm1.edt6Change(Sender: TObject);
begin
a := StrToFloat(edt5.Text);
b := StrToFloat(edt6.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.

[MiraLaklamon]

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

то есть вот так ?

Код:

procedure TForm1.edt2Change(Sender: TObject);
begin
a := StrToFloat(edt1.Text);
b := StrToFloat(edt2.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.
//--------------------------------------------------------
procedure TForm1.edt4Change(Sender: TObject);
begin
a := StrToFloat(edt3.Text);
b := StrToFloat(edt4.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.
//--------------------------------------------------------------
procedure TForm1.edt6Change(Sender: TObject);
begin
a := StrToFloat(edt5.Text);
b := StrToFloat(edt6.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.

Нет. В инспекторе объектов, на закладке Events в событии OnChange укажи для edt4 и edt6 тот же обработчик событий что и у edt2.

[samuilius]

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

Нет. В инспекторе объектов, на закладке Events в событии OnChange укажи для edt4 и edt6 тот же обработчик событий что и у edt2.

спасибо буду пробовать

[samuilius]

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

Нет. В инспекторе объектов, на закладке Events в событии OnChange укажи для edt4 и edt6 тот же обработчик событий что и у edt2.

Блин ОГРОМНЕЙШЕЕ С П А С И Б И Щ Е ! ! !

Все получилось как и нужно

[samuilius]

а вот такой мини вопросик как при помощи checkbox сделать недоступным edit для вбивания значения а при нажатии на checkbox опять стало доступным edit для вбивания значения

[v1s2222]

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Edit1.Enabled := CheckBox1.Checked;
end;

ЗЫ может лучше почитаешь пару книжек по программированию, поверь, быстрее материал усвоишь...