Ver Mensaje Individual
  #6  
Antiguo 04-10-2007
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Otra forma puede ser, si usas DataSet's, es al momento de crear o mostrar la forma, verificar el estado del DataSet para saber que estás haciendo, por ejemplo:

Código Delphi [-]
// Ejemplo de evento OnCreateForm
procedure TEditForm.CreateForm(Sender: TObject);
begin
  case DataSource.DataSet.State of
    dsBrowse:
      // Habilitar solo el botón cerrar...
    dsEdit:
      // Habilitar los botones aceptar, cancelar
    dsInsert:
  end
end;

// Formas de llamar la forma:
// Para editar un registo
DataSet.Edit;
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

// Para insertar un nuevo registro
DataSet.Insert;
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

// Solo quiero mostrar los datos del registro activo
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

Espero que esto junto con lo que te han comentado mensajes arriba, te sirva para darte una idea de como puedes implementar tus formas de edición de datos...



Saludos...
Responder Con Cita