Mi primer programa.

[rauros]

Hola, he leído algunos tutoriales y tengo en mi poder un libro de 1052 paginas de delphi 7 y kylix 3 (me interesa delphi solo). Me he iniciado con un programa para soltar bromas a mis amigos, pero me he encontrado con un error:

Aquí pongo parte del código (la que interesa conocer):

procedure TForm1.Button1Click(Sender: TObject);
begin
if pulsado = 1 then
label1.caption := 'Error: Opción no computable.';
radiobutton1.Enabled := false;
radiobutton2.Enabled := false;
radiobutton3.Enabled := false;
button1.caption := 'Atrás'
else if pulsado = 2 then <--------------- Error aquí
label1.caption := 'Eso se lo dices a un tamagochi, pero a mi no me engañas';
radiobutton1.Enabled := false;
radiobutton2.Enabled := false;
radiobutton3.Enabled := false;
button1.caption := 'Atrás';
else if pulsado = 3 then
label1.caption := '¡Acertaste! Eres un subnormal sincero ;)';
radiobutton1.Enabled := false;
radiobutton2.Enabled := false;
radiobutton3.Enabled := false;
button1.caption := 'Atrás';

end;

El error: 'end' expected but 'else' found

Gracias por su tiempo

[[gluglu]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if pulsado = 1 then begin
    label1.caption := 'Error: Opción no computable.';
    radiobutton1.Enabled := false;
    radiobutton2.Enabled := false;
    radiobutton3.Enabled := false;
    button1.caption := 'Atrás';
  end
  else 
    if pulsado = 2 then begin 
      label1.caption := 'Eso se lo dices a un tamagochi, pero a mi no me engañas';
      radiobutton1.Enabled := false;
      radiobutton2.Enabled := false;
      radiobutton3.Enabled := false;
      button1.caption := 'Atrás';
    end
    else
      if pulsado = 3 then begin
        label1.caption := '¡Acertaste! Eres un subnormal sincero ';
        radiobutton1.Enabled := false;
        radiobutton2.Enabled := false;
        radiobutton3.Enabled := false;
        button1.caption := 'Atrás';
      end;
end;

[rauros]

Okey, ahora funciona, muchísimas gracias. Si tuviera la necesidad de pedir más ayuda la pido desde aquí para saturar menos .

PD: como puedo ocultar los objetos?

He probado con .enable := false pero no hace lo que yo quiero, yo quiero hacerlos "invisibles" o algo parecido.

[[gluglu]]

Utiliza la propiedad Visible en vez de Enable.

Con Visible := False lo haces invisible, y con Enable := False se queda en pantalla pero en un gris pálido.

Adicionalmente deberías leer la Guía de Esilo y abrir un nuevo hilo para preguntas nuevas.

Saludos y bienvenido al club

[rauros]

Gracias por tu ayuda. Tengo otra pregunta . Me gustaría abrir un "error de windows", esos que pone error y cargan un sonido de error. Yo pienso que a lo mejor ya hay una función para cargar errores, pero si no lo hay, ¿como puedo cambiar de form1 a form2 y cargar un sonido?

[courtois]

Código Delphi [-]
Application.MessageBox('mensaje','titulo',16) ;