Hola Caral
Te felicito es una idea muy original y sobretodo muy de buen padre.
Te comento dos cosas.
1: Tu código necesitar simplificarlo, obvio que eso es con la experiencia.
Lo que tu tienes en el procedimiento.
procedure TForm1.Button2Click(Sender: TObject);
Lo podrias simplificar así
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
begin
case ComboBox3.ItemIndex of
0 : begin
Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) + StrToFloat(ComboBox2.Text));
end;
1 : begin
Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) - StrToFloat(ComboBox2.Text));
end;
2 : begin
Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) * StrToFloat(ComboBox2.Text));
end;
3 : begin
Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) / StrToFloat(ComboBox2.Text));
end;
end;
If Edit1.Text <> Edit2.Text Then begin
Label1.Caption := 'Tu Respuesta es Incorrecta';
Image1.Visible := False;
Image2.Visible := True;
Button2.Visible := False;
Image3.Visible := False;
end
else begin
Label1.Caption := 'Bien Hecho Respuesta Correcta';
Image1.Visible := True;
Button2.Visible := False;
Image2.Visible := False;
Image3.Visible := False;
end;
end;
2: Una buena práctica es que en tus programas asignes los Tabs de forma que al usuario le sea fácil pasar de un objeto a otro, es decir, al usar tu programa después de seleccionar los numeros yo pensaría que el siguiente objeto que debe tener el foco es donde vas a ingresar el resultado.
Saludos y nuevamente te felicito, seguimos viendo el programa.
Hasta la próxima.