Como cambiar mensages en delphi y firebird

[bothy]

Hola De Nuevo Amigos
Les agradesco su ayuda ..
tengo una aplicacion en delphi y una base de datos en firebird e IBexpert
en la tabla de la BD que tengo son 4 campos y los e puesto que sean obligatorios "no null" en la aplicacion tengo los 4 dbedit que corresponden a cada campo tambien tengo un control navigator. el primer campo es la primary key .. lo que quisiera saber es como poner los mensages que me salen cuando no lleno un campo y le doy click en el post del navigator me sale el error en ingles"" field 'clave' must have a value"" tambien me sale otro mensage cuando le doy click en delet del navigator me sale un mensage de confirmacion ¿ delet field? quisiera saber como puedo cambiar esos mensage para yo poner mi propio mensage en español..
A qui les dejo un link para que se den una idea de como ise mi aplicacion
http://www.youtube.com/watch?v=nY4C3...eature=related
les agradesco su ayuda..

[MAXIUM]

Creas una excepción y en la excepción colocas tu mensaje. OJO, esto de la excepciones funciona solo en runtime, es decir, ejecutas directamente el .exe o no con el compiler.

Código Delphi [-]
Try 
    Dataset1.Close;
Except
    Showmessage('Error de capa 8');
End;

[bothy]

Empezado por MAXIUM

Creas una excepción y en la excepción colocas tu mensaje. OJO, esto de la excepciones funciona solo en runtime, es decir, ejecutas directamente el .exe o no con el compiler.

Código Delphi [-]Try Dataset1.Close; Except Showmessage('Error de capa 8'); End;

hola
maxium gracias por tu ayuda donde devo poner la excepcion en que enveto o procedure..

[MAXIUM]

Código Delphi [-]
// Avisa que este campo no puede ser nulo.
procedure TForm1.DBEdit5Exit(Sender: TObject);
begin
     If Trim(DBEdit5.Text) = '' then
     Begin
          ShowMessage('Debe ingresar un nombre o se borrara este registro');
          DBEdit5.SetFocus;
     End;
end;

// Elimina el registro cuyo campo requerido sea nulo.
procedure TForm1.IBDataSet1BeforePost(DataSet: TDataSet);
begin
     If Trim(DBEdit5.Text) = '' then IBDataSet1.Delete;
     IBDataSet1.Edit;
end;

[bothy]

Hola maxium
con la ayuda que me diste valide que los dbedit no este "no null" pero quisiera saber tambien como puedo mandar un mensage para que cuando se repita la clave (primary key) mande un mensage que diga "la clave ya existe"
y otra vez mucha gracias por tu ayuda..

[[Caral]]

Hola
No se de esto pero se me ocurre asi:
En el evento OnClick del DBNaviagtor:

Código Delphi [-]
procedure TForm1.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
  If (TuTabla.State = dsEdit) or (TuTabla.State = dsInsert) 
    or (TuTabla.State = dsDelete) then
     begin
     If (DBEdit1.Text = ' ') or (DBEdit2.Text = ' ') 
     or (DBEdit3.Text = ' ') or (DBEdit4.Text = ' ') then
     showMessage(' debe colocar el dato');
     end;
end;

Si separas los if podras poner un mensaje por dbedit.
Espero te sirva, por lo menos sabras como no hacerlo.
Saludos

[bothy]

Gracias Caral..
Ahora Lo Que Quisiera Saver Es Como Mandar Un Mensage Cuando Se Repita La Clave Que Es La Primary Mandar Un Mensage "la Clave Ya Existe"
Gracias Por Su Atuda..