Ejecutables sin mensajes de excepcion

[ixMike]

Lo más seguro sea que el mensaje se muestre porque en el código de los componentes está así escrito. Quiero decir, que no sean mensajes de excepción, sino que, por ejemplo, deteca algún fallo y lo muestre.

Aquí un ejemplo, para aclarártelo. Tengo un TEdit donde hay que escribir un código de barras (realmente no lo tengo, es para el ejemplo), y claro, en un cod de barras solo hay números, así que no permito que escriban letras, pues en el evento OnKeyPress pongo esto

Código Delphi [-]
 
begin
If not (Key in ['0'..'9'])then
  begin
  Key:=#0;
  ShowMessage('Caracter introducido no válido');
  end;
end;

Si es eso, la única solución es modificar el código fuente de esos componentes , o bien usar otros (a ser posible, claro).