Ver Mensaje Individual
  #2  
Antiguo 29-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
tengo 12 DBCombox uno por cada mes y necesito al momento de guardar verificar que al menos el usuario seleccione 1 de estos, independiente si los selecciona todos
Hola Lenny.

Una manera puede ser aprovechar el evento OnChange de los TDBComboBox, por ejemplo:
Código Delphi [-]
  ...
  private
    FModifico: Boolean; // True si modifica algún combo
  end;
...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  FModifico:= False; // Sin modificar
end;

procedure TForm1.DBComboBoxChange(Sender: TObject);
begin
  FModifico:= True;  // Modifico un combo
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not FModifico then
    ShowMessage('Debe seleccionar al menos un valor');
end;
Tenés que asignar el método DBComboBoxChange a todos los TDBComboBox que te interese evaluar. Si se trata de algún módulo en el que haces ingresos o modificaciones repetitivas deberás poner FModifico:= False al iniciar cada nueva acción.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita