Mensaje de error

[creus]

He de mostrar un mensaje de error en el momento que pulso un boton para realizar una operacion. El mensaje ha de salir solo si no hay seleccionado un radiobutton.

Se que se utiliza la instruccion Try except showmessage...

[dec]

Hola,

No parece necesario que utilizes una excepción para el caso que dices. Podrías utilizar una sencilla condición:

Código Delphi [-]
if not RadioBoton.Checked then
begin
  ShowMessage('Selecciona una opción, por favor');
  {...}
end
else
begin
  {...}
end;

Algo así podría bastarte, supongo.

[[Lepe]]

En algunos casos puede ser necesario una excepción, y si te lo han dicho así (con ese nombre) por algo será.

Es normal crear una excepción propia en cada programa, es simple y fácil:

Código Delphi [-]
  ENombreProyecto = Class Exception;

// para mostrarla al usuario:

  raise ENombreProyecto.Create('introduzca una opción válida');

// Tambien puedes hacer uso de algunos métodos que implementa Exception:
   raise ENombreProyecto.CreateFmt('introduzca en %s una opción válida', [Radiobutton1.Name]);

La excepción corta el flujo normal de ejecución de cualquier procedimiento; ha de tenerse en cuenta.

Si lo que deseas es un mensaje de error, pero sin usar excepciones, puedes hacerlo con :

Código Delphi [-]
 Application.MessageBox(' caption', 'mensaje a mostrar', [mb_iconerror + mbidyesno]);

El mensaje es idéntico a una excepción. Pero no se crea ninguna excepción.

PD: he escrito de memoria, revisa la ayuda para ver los parámetros exactos.

Saludos