condicionar un procedimiento dentro de otro procedimiento

[ecfisa]

Hola.

Hola probá con esta línea al inicio del evento OnExit del Edit.

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if ActiveControl.Name = 'Button1' then Exit; 
  ...
  ...
  ...
end;

Saludos.

[yossi]

gracias a ambos por responder

yapt: podria chequear los datos al final pero en ese formulario se añaden muchos datos y seria molesto que despues de haberlos llenado todos te diga que ya estaba registrado por eso lo chequeo en seguida

ecfisa: intente tu solucion pero no funciona, me sigue mostrando en mensaje que coloque para que ingrese ese dato obligatoriamente

editado

ya se soluciono el problema, con la ayuda de efisa, lo coloque como me dijiste pero en lugar de exit llame al procedimiento de buttonclick, no se porque con exit no me funciono, pero muchas gracias por tu ayuda y por la de yapt

[ecfisa]

Hola yossi.

Es extraño que no te funcione el Exit, a mí en particular esa línea me funcionó en todos los casos..

El nombre de tu TButton, es 'TButton1' ?

Saludos.

[yossi]

en un princincipio era "Button1" pero lo cambie a "cerrar" y de ninguna forma funciono, de todas maneras tu ayuda me sirvio de mucho y ya funciona como quiero, de nuevo gracias

[ecfisa]

De nada yossi, me alegro que te haya servido de algo.

Saludos.

[yapt]

De nada (la verdad es que poco pude ayudar).

Pero también estoy con Yossi. Creo que su línea de código debería de funcionar exactamente igual que si llamas al buttonclick del botón. Incluso yo lo preferiria.

Saludos.