Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось произведение RadioButton на Label1

@Lena_SolncE · Регистрация: 03.03.2012

Author24 — интернет-сервис помощи студентам

Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось произведение RadioButton на Label1. Что-то типо этого: Label2.Caption:=Label1.Caption*RadioButton1.Caption, но это не правильная запись, а как правильно записать?(хотелось бы чтобы кнопки не было). За ранее Спасибо)

@Hack_ERR · 03.03.2012, 20:47

Код

procedure TForm1.RadioButton1Click(Sender: TObject);
var a:integer;
begin
a:=strtoint(label1.Caption)*strtoint(radiobutton1.Caption);
label1.Caption:=inttostr(a);
end;

end.

@Lena_SolncE · 03.03.2012, 20:56 **[ТС]**

спасибо огромное за помощь!!!)))

@Lena_SolncE 0 / 0 / 0 Регистрация: 03.03.2012 Сообщений: 58
		1
	Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось произведение RadioButton на Label1 03.03.2012, 20:28. Показов 2183. Ответов 2 Метки нет (Все метки) Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось произведение RadioButton на Label1. Что-то типо этого: Label2.Caption:=Label1.Caption*RadioButton1.Caption, но это не правильная запись, а как правильно записать?(хотелось бы чтобы кнопки не было). За ранее Спасибо) 0

@Hack_ERR 5 / 5 / 0 Регистрация: 03.03.2012 Сообщений: 19
	03.03.2012, 20:47	2
	Код procedure TForm1.RadioButton1Click(Sender: TObject); var a:integer; begin a:=strtoint(label1.Caption)*strtoint(radiobutton1.Caption); label1.Caption:=inttostr(a); end; end. 1

@Lena_SolncE 0 / 0 / 0 Регистрация: 03.03.2012 Сообщений: 58
	03.03.2012, 20:56 [ТС]	3
	спасибо огромное за помощь!!!))) 0