Código Delphi
[-]
procedure TFormGesCli.BtnAceptarClick(Sender: TObject);
begin
if txtamigo.text='' then
begin
if txtcliente.text='' then
begin
showmessage('Debe introducir al menos uno de los dos codigos');
exit;
end;
end;
end;
despues de pasar por el exit salta al end del procedimiento y de ahi pasa directamente al evento close del formulario, el formulario esta abierto como showmodal, porque se me cierra si yo no le doy ninguna instruccion para cerrarse, tiene que ver con que yo lo abra como modal
Gracias por adelantado