Ver Mensaje Individual
  #2  
Antiguo 20-12-2006
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Reputación: 21
AzidRain Va camino a la fama
Yo estoy haciendo una aplicación y precisamente tengo unas ventanas identicas, no he llegado a hacer esa parte con los botones, pero en vista de que tu estas en eso aqui te va como lo veo:

Por defecto ponlos desactivados, de manera que siempre aparezcan inactivos. Agrega un DataSource ligado a la tabla que vamos estar checando que tenga datos. En el evento OnDataChange escribes un manejador que verifique si ya hay registros, en cuyo caso activará los botones.

OnDataChange se ejecuta al modificar o insertar un registro.
Este método es el indicado para convertir un control cualquiera en "Data-aware"

Aqui un ejemplo de manejador de un control TDataSource llamado MyData y CopYData es un botón que solo sirve si no estamos al prinicipio de los registros:
Código Delphi [-]

procedure TForm1.MyDataDataChange(Sender: TObject; Field: TField);
begin
  if MyData.Bof then  //Si estamos al principio del archivo
    CopyData.Enabled := False  // Deshabilitar el boton
  else
    CopyData.Enabled := True; // De lo contrario habilitarlo
end;
__________________
AKA "El animalito" ||Cordobés a mucha honra||

Última edición por AzidRain fecha: 20-12-2006 a las 02:08:34.
Responder Con Cita