cual es la mejor forma de llamar a un formulario de modificación de datos
 

Hola nuevamente hace día he estado trabajando con formularios el cual se me han presentado inconvenientes, me he apoyado en literatura por ejemplo la cara ocultad e delphi, delphi7, delphi handbook (para uso de ribbon). Algunos de ellos brindan técnicas la cual realizo pero una cosa es la teoría y la otra es la practica ustedes deben de saber eso.

Gracias a este foro he encontrado personas que me han ayudado no dándome todo fácil pero si guiándome lo suficiente y a ellos les agradezco.

Siguiendo el asunto de formularios el inconveniente que poseo actualmente es que necesito utilizar mi formulario de ingreso de registros también como formulario de modificación de registro mi código actual algunos los conocen es.

Código Delphi [-]
procedure MuestraVentana(ventana: string; modo: string);
begin
 if ventana = 'Clientes' then
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Last;
      dmacceso.cdsClientes.Open;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      finally
         If FrmCliente.Caption <> ' ' then
         Begin
           FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
           FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
         end;
   end;
end;

    if modo = 'Editar' then
        begin
            frmCliente.btnModificar.Visible := True;
            frmCliente.btnGuardar.Visible := False;
            dmacceso.cdsClientes.Edit;
            frmCliente.Show;
    end;

  end;

Este es el boton de llamar al formulario para ser modificado

Código Delphi [-]
procedure TfrmFicheroCliente.aModificarExecute(Sender: TObject);
begin
  pais := dmAcceso.cdsClientesPais.text;
  dmacceso.cdsClientes.Edit;
  MostrarRegistroYGuardar;
end;

Este es un procedimiento de modificar en el boton

Código Delphi [-]
procedure TfrmCliente.btnModificarClick(Sender: TObject);
begin
  dmacceso.cdsClientesPAIS.Value := cbexPais.Text;
  dmacceso.cdsclientes.edit;
  dmacceso.cdsClientes.ApplyUpdates(0);

  if Application.MessageBox('Cliente Modificado',
  'Atención',(MB_OK + MB_ICONINFORMATION))= mb_ok then
  begin
    frmcliente.Close;   //            Estas dos lineas de código en particular no 
    frmFicherocliente.Show;//     me hacen nada cuando doy aceptar. Alguna idea como mejorar eso?
  end

end;

Como dije se me están presentando inconvenientes por ejemplo Al estar el formuolario abierto si no le doy clic algun dbEdit no se muestran los datos que quiero modificar..

Saludos;

ah se me olvidaba este es mi procedimiento de MostrarRegistroyGuardar

Código Delphi [-]
procedure TfrmFicheroCliente.MostrarRegistroYGuardar;
begin
  utiles.MuestraVentana('Clientes', 'Editar'); //aqui llama al modo de Editar
end;

mmmm me parece algo complicado tu codigo.. tienes muchas cosas que son redundantes

por ejemplo

Código Delphi [-]
 
dmacceso.cdsClientes.Active := True;  // esto es igual que open
dmacceso.cdsClientes.Last; // no es necesatio cuando insertas pq se va al final
dmacceso.cdsClientes.Open;
dmacceso.cdsClientes.Insert;

yo particularmente hago esto

Boton Modificar del form donde muestro los datos

Código Delphi [-]
 
procedure TfrmCatalogoAnexo.btnModificaClick(Sender: TObject);
begin
  btn_opcion := 1;
  qryAnexos.Edit;
  frmCatalogoAnexod := TfrmCatalogoAnexod.Create(nil);
  frmCatalogoAnexod.Show
end;

y en el create del formulario invocado hago mas o menos esto

Código Delphi [-]
 
 
procedure TfrmCatalogoAnexod.FormCreate(Sender: TObject);
var i: Integer;
begin
  if frmCatalogoAnexo.btn_opcion =1 then
    begin
      edtCodigo.Enabled := False;
      ComboBox1.ItemIndex := StrToInt(frmCatalogoAnexo.qryAnexosTipoAnexo.Value) - 1;
    end;
  if frmCatalogoAnexo.btn_opcion >= 1 then
        edtTipoAnexoExit(sender);
  if frmCatalogoAnexo.btn_opcion = 2 then
    begin
      btnGrabar.Caption := 'Eliminar';
      for i := 0 to (Self.ComponentCount - 1) do  begin
        if (Self.Components[i] is TDBEdit) or (Self.Components[i] is TComboBox) then begin
          TEdit(Self.Components[i]).Enabled := False;
        end;
      end;
    end;
end;

y en el boton de grabar hago mas o menos esto

Código Delphi [-]
 
procedure TfrmCatalogoAnexod.btnGrabarClick(Sender: TObject);
begin
  if frmCatalogoAnexo.btn_opcion <> 2 then
    begin
      frmCatalogoAnexo.qryAnexosTipoAnexo.AsString := FormatFillStringNumber (IntToStr(ComboBox1.ItemIndex + 1),2);
      frmCatalogoAnexo.qryAnexosEmpresa.AsString := dmGlobal.g_CodigoEmpresa;
      frmCatalogoAnexo.qryAnexos.Post;
    end;
  if frmCatalogoAnexo.btn_opcion = 2 then
    frmCatalogoAnexo.qryAnexos.Delete;
  Close;
  frmCatalogoAnexo.dbgAnexo.SetFocus;
end;

hola oscarac respecto a lo reduntante he notado que:

Código Delphi [-]
dmacceso.cdsClientes.open; // no me abre el DataSet al llamar el formulario

dmacceso.cdsClientes.Last; // si no lo utilizaba en mi formulario para registrar datos me eliminaba no se ponia de ultimo. y por lo general me eliminaba mi primer registro.

Por eso los utilizo... Se me comporta extraño el formulario cuando uso métodos que se consideran "apropiados".

Saludos;

ohh ya
pero eso depende de la instancia y lo que quieras hacer con el registro activo

Hola
Coloca un checkbox en el form:

Código Delphi [-]
procedure TFrmPrincipal.CheckBox1Click(Sender: TObject);
begin
   If Checkbox1.Checked = True then
   begin
   Checkbox1.Caption:= 'Insertar';
   end
   else
   Checkbox1.Caption:= 'Modificar';
end;

procedure MuestraVentana(ventana: string; modo: string);
begin
 if ventana = 'Clientes' then
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;

      If Checkbox1.Checked = True then
      begin
      // insertar
      dmacceso.cdsClientes.Last;
      dmacceso.cdsClientes.Open;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      end
      else
      begin
      // modificar
      dmacceso.cdsClientes.Open;
      dmacceso.cdsClientes.Edit;
      FrmCliente.Show;
      end;

      finally
         If FrmCliente.Caption <> ' ' then
         Begin
           FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
           FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
         end;
   end;
end;

procedure TfrmCliente.btnModificarClick(Sender: TObject);
begin
  dmacceso.cdsClientesPAIS.Value := cbexPais.Text;
  dmacceso.cdsClientes.ApplyUpdates(0);

  if Application.MessageBox('Cliente Modificado',
  'Atención',(MB_OK + MB_ICONINFORMATION))= mb_ok then
  begin
    frmcliente.Close;   //            Estas dos lineas de código en particular no 
    frmFicherocliente.Show;//     me hacen nada cuando doy aceptar. Alguna idea como mejorar eso?
  end

end;

end;

saludos

A cómo dice Oscarac, parece que te has complicado en algo que puede ser simple. No te preocupes, estás empezando y es lo más normal de todo el mundo. En mi caso, fíjate lo que hago:

Declaro dos contructores en la clase (los llamo "visores de registro", para diferenciarlos de los "exploradores de registro"). La declaración de los constructores es más o menos así:

Código Delphi [-]
type
    TClientesViewer =  class(TBaseViewer)
    published
        constructor ShowRecord(AOwner: TComponent; RecordID: Variant;
                               const ReadOnly: Boolean = False;
                               const UpdateTransaction: TpFIBTransaction = nil;
                               ...);
        constructor NewRecord(AOwner: TComponent; const RecordData: PString = nil);

Luego en la implementación de cada constructor preparo el enlace a datos de la forma más adecuada para el modo en el que se trabajará. El proceso de guardar los cambios o ya sea un nuevo registro, es casi lo mismo. En síntesis solo se requiere de una llamada a Post.

Saludos,
Chris

Desde luego, depende de como se hace el enlace, pero no me cuadra mucho lo de los dos constructores. A la ventana de edición de registro debería darle lo mismo si está editando un registro existente o uno nuevo. La diferencia debiera darla quien abre la ventana poniendo el dataset en modo de edición o de inserción.

// Saludos

Terminarías repitiendo código Román. Tomé este diseño por la experiencia. Si quieres crear un nuevo registro, solo falta con:

Código Delphi [-]
TClientesViewer.NewRecord(Self);

Una simple línea de código.
Si lo que quieres modificar otro registro, también solo faltará con una simple línea de código

Código Delphi [-]
TClientesViewer.ShowRecord(Self, Table1.Fields['id'].AsString);

En cierta forma así es. Prácticamente lo único que hacen los constructores es adaptar la interfaz de la ventana para ligeramente diferenciarse entre modificación o inserción de un registro.

Saludos,
Chris

como dijo roman
Es lo que trato de decirles: En teoría son argumentos que exponen los autores en sus reconocidos libros que "Funcionan" sin embargo en la programación me he percatado que es a base de experiencia lo que realmente manda. Agradezco muchísimo sus aportes caral, roman, chris,oscarac y quien me falta por mencionar la cual son muchos Gracias.

Lo que entiendo de chris es que voy a crear una clase que puedo mas adelante utilizarla eso en teoría la puedo llamar herencia. (Si me equivoco corrijan).

Lo intentare porque no me he puesto a observar y practicar mucho la herencia y el poliformismo en la programación.

Saludos;

Novato_erick

:confused:

Una pregunta Chris:

Código Delphi [-]
type
    TClientesViewer =  class(TBaseViewer);// de donde proviene TBaseViewer es de un componente?

Porque me manda error. identificador no declarado...


Saludos;

No veo por qué. Se requiere una sóla línea de código para poner en modo de edición o de inserción al dataset. Normalmente, dicho código lo colocaría yo en el evento Execute de una TAction, lo cual te permite llamar al mismo código desde varios lugares. En dicho evento puedes colocar cualquier otra cosa que haga falta para personalizar el visor.

Como dije antes, en mi opinión, es un error de diseño dejar a la clase visora la tarea de escoger ese menester pues, para empezar, dicha clase debería ser agnóstica del dataset.

// Saludos

Desde luego. Pero muchos de esos autores escriben sus libros basados en su experiencia ;).

// Saludos

Bueno logre poner en modo de Edición mi procedimiento al llamar el formulario en modo de edición he aquí la forma en que lo deje.

Código Delphi [-]

procedure MuestraVentana(ventana: string; modo: string);

if ventana = 'Clientes' then // lo considero como mi modo 'Normal' al ejecutarlo que significa agregar registros
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      finally
      If FrmCliente.Caption <> ' ' then
      Begin
      FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
      FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
      end;
      end;
    end;

    if modo = 'Editar' then
    begin
        frmCliente.btnModificar.Visible := True;// hago que se ponga visible el botón de modificar
        frmCliente.btnGuardar.Visible := False;// aquí oculto el botón de guardar pues esta en modo de edición
        frmCliente := TfrmCliente.Create(nil);
        dmacceso.cdsClientes.Edit;
    end;

  end;

Sin embargo aun pasa algo extraño, no me muestra los datos en seguida en los dbedit al abrir el formulario para ser modificados si no le doy click en algun dbEdit. ¿Alguien tiene alguna idea de como sulucionar este problema en si?

aquí esta como llamo a mi formulario en modo de Edición en el DBGrid con el evento DblClick

Código Delphi [-]
procedure TfrmFicheroCliente.dbgClientesDblClick(Sender: TObject);
begin
 pais := dmAcceso.cdsClientesPais.text;
 MostrarRegistroYGuardar;
end;

aquí llamo el modo de edición con un TButton:

Código Delphi [-]
procedure TfrmFicheroCliente.aModificarExecute(Sender: TObject);
begin
  pais := dmAcceso.cdsClientesPais.text;
  MostrarRegistroYGuardar;
end;

procedure TfrmFicheroCliente.MostrarRegistroYGuardar;
begin
  utiles.MuestraVentana('Clientes', 'Editar');// aquí llama al modo Editar del FrmCliente
end;

mmm me atrevo a preguntar si los dbedits estan asociados a un datasource?

Yo veo raro tu código. Aparentemente, el código de inserción de un nuevo registro se ejecuta aún cuando lo que quieras sea editar un registro existente. Es más, en tal caso creas la ventana frmCliente ¡dos veces!

Por otra parte, creo que sería mejor mostrar la ventana con ShowModal, a menos que haya alguna razón especial que no conozco.

// Saludos

Así es oscarac

Este esta en

dmAcceso.cdsClientes

DataSource properties

AutoEdit = True
DataSet = dmAcceso.cdsClientes
Enable = True
Name = dsClientes
Tag = 0

Saludos;

Yo tambien pienso que te estas complicando la existencia.... anteriormente te deje unos ejemplos de como lo hago yo.. quiza no seas una de las mejores formas pero me parece mucho mas sencillo que el tuyo

segun entiendo.. en un formulario de modificacion de datos puedes ejecutar 3 acciones

1.- agregar registros (append)
2.- modificar registros (edit)
3.- eliminar registros (delete)

la informacion en el form en cualquiera de los 3 casosa (con reservas en el modo insertar) es la misma y el procedimiento de aperturar el form deberia ser el mismo

segun YO cuando preguntas si el formulario = nil, es porque no tienes un control del flujo del programa....

creas un formulario y cuando lo cierras lo destruyes.. eso te evita preguntar si esta nil
del mismo modo con los botones... tienes 2 botonos 1 para crear y el otro para modificar... cuando deberias tener solo 1 que puedes cambiar el caption segun la accion y dentro del onclick manejar las "acciones" a seguir... segun hice referencia en los ejemplos que te deje anteriormente

sin animos de desanimarte ni mucho menos de hacerte cambiar de opinion (porque puede existir una buena razon del porque lo haces de esa forma), esos son mis comentarios

salvo error u omision o alguien con mas conocimientos me pueda corregir y de paso aprender mas..

saludos

Lo que sucede es que TBaseViewer no es una clase que venga con Delphi. Es una clase que yo he escrito. Es el ancestro de todos los visores de registro que utilizo en mi aplicación. TBaseViewer implementa la funcionalidad básica y general de un visor de registro.

Saludos,
Chris

De hecho, ¿por qué frmCliente tiene un botón Modificar y uno Guardar? Yo pondría sólo el botón Guardar que sirve para lo mismo en ambos casos (inserción y edición): guardar los datos. Es más, si el formulario se muestra modalmente, dicho botón Guardar únicamente pondría la propiedad ModalResult del formulario en mrOk para que la ventana que lo abrió sepa que se aceptan los cambios y se haga el Post a la base de datos.

Por otra parte, oscarac, no me queda claro que el mismo formulario se use para borrar registros. Creo que esa operación quedaría mejor en un explorador de registros, siguiendo la terminología de Chris.

// Saludos

En correcto lo que dices Román. Lo que sucede es que en mi aplicación existe más de un visor de registro. A cómo dice en un comentario anterior, existe la clase TBaseViewer que es el ancestro de todos lo visores. Dicha clase ya te imaginarás que implementa lo básico y general, dejando algunas cosas como "virtual" para que los herederos puedan personalizar.

Al haber más de un tipo de visor (cada uno con su ligeras diferencias) he preferido utilizar la estructura que os he mostrado. Si hubiese utilizado acciones a cómo mencionas, hubiese terminado repitiendo código para cada uno de los tipos de visores.

Saludos,
Chris

OJO yo hablo de 2 formularios.. 1 donde esta el explorador de registros... osea el grid con los datos y el otro es en que se invoca cuando se ejecutan las "acciones" (agregar, modificar, eliminar).. es en este segundo formulario donde muestro los campos y cuando hablamos de eliminar simplemente desactivos los bdedits y en el boton ejecuto la "accion"

Hola...

Aquí metiendo mi cuchara... :p

oscarac, para eliminar un registro no veo el por que tengas que mostrar el formulario con sus datos si estás realizando la acción desde un explorador de registros. Basta con preguntar si se desea eliminar el registro actual (el que está seleccionado) y dependiendo de la respuesta del usuario, realizas o no la acción de eliminar.


Saludos...

claro claro.. podria hacerse asi, sin mostrar los datos... pero yo me acostumbre a que si voy a borrar algo... le muestro toda la informacion "importante", porque segun mi experiencia ha pasado que el usuario por un error de interpretacion ha borrado lo que no debe, otro motivo es para mantener el estandard.. si agregar y modificar muestro un formulario. entonces en eliminar tambien...

¡Ah! Pero eso es otra cosa. Si tienes varias clases de objetos a editar, desde luego que puede resultar conveniente tener una jerarquía de ellos. Pero aún así, no veo porqué dejar al visor la decisión de escoger entre inserción y edición.

// Saludos

Pues, se supone que el explorador de registros muestra la suficiente información como para que el operador reconozca el registro y sepa si borrarlo o no. Y, en caso de dudas, simplmente entraría a editar el registro para corroborar otros datos, cerraría el editor y oprimiría el botón Borrar.

// Saludos

sucede que mucho antes programaba en FOX, en pantallas de 80x25 y al hacer una grilla, no habia mucho espacio como para mostrar TOOOODaaa la informacion... quiza se me ha quedado esa costumbre

Es que el visor no hace la elección. Es el "caller" al llamar a uno de los constructores previamente descritos. Aunque no sería tan malo dejar al visor hacer la decisión también. Los modelos de Django lo hacen así :)

Saludos,
Chris

jajaja calma chicos mi idea no era llegar a una polémica de técnicas empleadas cada una es interesante.... al fin al cabo el embrollo que he creado se resume en el titulo que presenté al iniciar el hilo.

Hey gracias por compartir sus experiencias...

Me dijo roman

lo hago porque como veras en el codigo

Código Delphi [-]
procedure TFrmPrincipal.AgregarExecute(Sender: TObject);
begin
 FrmCliente := TfrmCliente.create(FrmCliente);
 Try
      FrmCliente.Parent := FrmPrincipal.Panel4; // el formulario que llamo se pega al panel
      FrmCliente.Caption := 'Clientes';// 
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
 Finally
         If FrmCliente.Caption <> ' ' then
           Begin
              FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);// en el tabset muestra el caption de mi formulario
              FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
           end;
      end;
 //utiles.MuestraVentana('Clientes','Normal');
end;

si lo hago con

Código Delphi [-]
frmClientes.showmodal

, mi formulario se pega en el panel pero no me deja hacer nada en mi aplicación...

Tambien roman

porque si lo dejo en insert me crea otro registro con el mismo nombre y como le tengo evitar duplicidad de datos me manda error...



desanimarme para nada. Ese termino lo utilizo cuando alguien desea algo pero solamente cree que hay una forma de hacerlo. Yo en cambio no me importaría tomar otras opciones para lograrlo al fin al cabo terminar lo que deseo es mi objetivo principal. y ustedes tienen mas experiencia que yo. ténganlo por seguro que los leeré...

Saludos

Ja, ja. Entonces, si el caller hace la distinción, ¿para qué quieres dos constructores? Digo, quizá es que tus visores son muy distintos si se trata de edición o de inserción, y hay que hacer mucha inicialización según el caso. Pero para mi gusto, como dije al pricipio, un tal visor debería actuar prácticamente igual en cualquiera de los dos casos, salvo por algún detalle menor.

// Saludos

Exactamente. Y si no hubiera habido polémica no nos habríamos enterado de las distintas técnicas.

Dicho de otra manera, polemizar no tiene nada de malo. Sirve para aprender nuevas cosas.

// Saludos

Hola
La verdad es que no encuentro el problema por ningun lado.
Lo que se pretende es algo muy sencillo (Usar un form para hacer modificaciones e inserciones).
Donde esta el misterio???
Donde esta lo complicado???.
No lo veo..
Saludos

Realmente las diferencias en cada modo son detalles menores, que bien se podrían expresar en tres o cuatro líneas de código. Pero aunque sean ese poco número de líneas, ya es algo! Y hay que concentrarlas en un solo lugar. Sino habrá que repetir esas cuatro líneas para cada clase de visor. Aparte, no sabes si en un futuro esas cuatro líneas puedan convertirse en 8 y después en 15 y así sucesivamente.

Saludos,
Chris

Bueno, al final, cada quien diseña sus clases lo mejor que puede. ;)

Yo uso un diseño más parecido a lo que comenta roman, los formulario de edición solo saben mostrar los datos, guardar o cancelar la edición del objeto que se le envía y el que los manda a llamar (mayormente un explorador de objetos) es el que decide si es un objeto nuevo o la edición de alguno existente.


Saludos...

Hola...

El misterio, no creo que haya ninguno.

Lo complicado, es la forma en como está haciendo las cosas. Pero claro, muchas cosas las irá afinando mientras más experiencia vaya obteniendo al momento de desarrollar sus aplicaciones.


Saludos...

Caral

El problema es que cada uno tiene su manera y sus tecnicas de llamar formularios para insersion, edicion, eliminacion... yo en realidad he tenido problemas en es cuanto a comportamientos extranos. Cada uno me ah dado aportes interesantes, de igual manera que tu has hecho siempre.

ahora mismo estoy trabajando con algunas sugerencias ya que arriba mostre la nueva manera en que llamo el formulario y porque no uso el showmodal etc.


Saludos

Hola
Yo el problema mas grande lo veo al querer correr antes de caminar.
Si quiero Codigos mas eficientes me voy con Roman, ChackAll, escafandra, Egostar y por supuesto Seoane, Neftali etc. etc...., pero, pero, estare a la altura de entenderlos (como novato)?, lo dudo.
Para mi la mejor manera de llamar a un form (como dice la pregunta) es, la que mejor entienda en ese momento, ya aprendere, ya mejorare.
Quien de vosotros no ha visto un codigo viejo (hecho por vosotros mismos) y ha dicho: '' Que bruto era, si es mucho mejor asi o asa'', estoy seguro que todos.
Moraleja: La mejor manera : La que el depurador no grite.:D;)
Saludos

No soy yo quien para juzgar tu diseño, pero nunca he sido fan de encajar formularios dentro de otra ventana. Por otra parte, ¿realmente deseas hacer otra cosa mientras tienes abierto el formulario de edición de datos?

Claro que quizá tengas una necesidad especial de diseño o requerimiento, pero para mi gusto, un formulario para editar un registro debe ser modal y justamente no permitirte hacer nada más durante la edición.

// Saludos

Ya me estoy dando cuenta a tropezón en los problemas que causa usar formularios encajados en ventana (Se comportan extraño) y me limita a muchas cosas mas.

En cuanto el porque lo requería de esa manera es que el usuario deseaba que trabajara como Los exploradores de Internet, que puedes usar muchas pestañas y hacer varias cosas. solamente trasladándote por pestañas tenia a mano varios formularios (los mas usados).

Ese es el porque se esta trabajando de esa manera.

y tranquilo, siempre las criticas las recibo como algo positivo, y como dijo caral, a base de experiencia llegare a ser como varios de ustedes... :).


lo que hice es que los formularios principales los uso con pestañas, pero si tengo que llamar los formularios de modificación ahí si no lo hago con pestaña... envió un ejemplo de lo que hice:

Código Delphi [-]
class function TfrmCliente.Execute: Boolean;
var
  frmCliente: TfrmCliente;
begin
  frmCliente := TfrmCliente.Create(nil);
  try
    Result := frmCliente.ShowModal = mrOk;
  finally
    frmCliente.Free;
  end;
end;

mas adelante seria agradable poner a funcionar los requerimientos solicitados por mis usuarios.


Saludos;