Aplicacion Multiformulario

[[Delphius]]

Disculpen que habra este hilo desde hace tiempo... lo que pasa es que yo estaba buscando en los foros algo que me ayude a determinar un error.

Hace un tiempo dejé un hilo inconcluso. Pues, empecé a retomarlo... y estuve metiendo código.
Veran, estoy declarando un descendiente de TForm ,lo llamé TExpertForm. Pues en dicha forma se encapsulan procedimientos y propiedades que permitan realizar visualizaciones tanto en forma modales como no modales... y que funcionen tanto para aplicaciones MDI como SDI (es asi?)

Me leí todo y al llegar aqui:

Empezado por Lepe

- Solo permitimos una ventana abierta de cada tipo al mismo tiempo. En algunos casos es una desventaja, en otros una ventaja, depende de la filosofía que se quiera seguir.

El método de kesu si tiene un pequeño error, pero al haber sido escrito de memoria, demasiado bien está. Por otra parte, es "la otra filosofía" para trabajar con ventanas MDI, ese método si permite tener varias ventanas FrmClientes abiertas al mismo tiempo, pero tambien tiene sus inconvenientes. Si interesa ese método, pregunten.

Lo que sí es muy importante es no mezclar ambos métodos, porque tendríamos Access Violation, Abstract Error y otras muchas excepciones nada obvias de localizar

¡Y eso es lo que me pasa!
Hasta ahora (todavia estoy viendo esto) el código que tengo es como sigue:

Código Delphi [-]
unit UExpertForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  MAX_VARIABLES = 25;

type
  TStateModal = (smModal, smNotModal);
  TInstancePermits = (ipOnlyOne, ipMultiple);

  TVarDomain = (vdPublic, vdPrivate);
  TVarInfo = record
    Value: Variant;
    Domain: TVarDomain;
  end;

  TArrayVariables = array [0..MAX_VARIABLES - 1] of TvarInfo;

  TExpertForm = class(TForm)
  private
    { Private declarations }
    FVars: TArrayVariables;
    FInstancePermits: TInstancePermits;
    FState: TStateModal;
  protected
    { Protected declarations }
    FID: integer;
    FOptionView: integer;
    function GetID: integer; virtual; abstract;
    procedure SetID(const Value: integer); virtual; abstract;
    function GetOptionView: integer; virtual; abstract;
    procedure SetOptionView(const Value: integer); virtual; abstract;
    procedure VariableChange(Index: integer; Value, OldValue: Variant); virtual; abstract;
    procedure DomainChange(Index: integer; Domain, OldDomain: TVarDomain); virtual; abstract;
  public
    { Public declarations }
    property ID: integer read GetID;
    property OptionView: integer read GetOptionView;
    property InstancePermits: TInstancePermits read FInstancePermits write FInstancePermits;
    procedure SetVariable(const Index: integer; Value: Variant; Domain: TVarDomain);
    function GetVariable(Sender: TObject; Index: integer): Variant;
    procedure View(OptionView: integer; NewInstance: boolean);
    procedure ViewModal(OptionView: integer);
    procedure ViewNotModal(OptionView: integer; NewInstance: boolean);
  end;


implementation

{$R *.dfm}

procedure TExpertForm.SetVariable(const Index: integer; Value: Variant; Domain: TVarDomain);
var OldV: Variant;
    OldD: TVarDomain;
begin
  OldV := FVars[Index].Value;
  OldD := FVars[Index].Domain;
  if (Value <> OldV)
     then begin
            FVars[Index].Value := Value;
            VariableChange(Index, Value, OldV);
          end;
  if (Domain <> OldD)
     then begin
            FVars[Index].Domain := Domain;
            DomainChange(Index, Domain, OldD);
          end;
end;

function TExpertForm.GetVariable(Sender: TObject; Index: integer): Variant;
begin
  if (Sender <> Self) AND (FVars[Index].Domain = vdPrivate)
     then raise Exception.Create('Error. Variable is private')
          else result := FVars[Index].Value;
end;

procedure TExpertForm.View(OptionView: integer; NewInstance: boolean);
begin
 if FState = smModal
    then ViewModal(OptionView)
    else ViewNotModal(OptionView, NewInstance);
end;

procedure TExpertForm.ViewModal(OptionView: integer);
begin
 if (NOT Assigned(Self))
    then begin
           with Create(Application) do
             try
               SetOptionView(OptionView);
               FState := smModal;
               ModalResult := ShowModal;
             finally
               Free;
             end;
         end
    else begin
           SetOptionView(OptionView);
           FState := smModal;
           ModalResult := ShowModal;
         end;
end;

procedure TExpertForm.ViewNotModal(OptionView: integer; NewInstance: boolean);
var Frm: TExpertForm;
begin
  // si es de una sola instancia...
  LockWindowUpdate(Application.MainForm.Handle);
  try
    if NOT (Assigned(Self))
       then begin
             // no hay ventana... hacer una
             with Create(Application) do
               try
                 FState := smNotModal;
                 FOptionView := OptionView;
                 Show;
               finally
                 Free;
               end;
            end
       else begin
               FState := smNotModal;
               FOptionView := OptionView;
               if Self.WindowState = wsMinimized
                  then Self.WindowState := wsNormal;
               Self.BringToFront;
               Self.Show;
               Exit;
            end;
  finally
    LockWindowUpdate(0);
  end;
end;

end.

Me preguntaba si se podrá realizar lo que pretendo... se que tiene errores... y algunos los veo ahorita. Mi pregunta mas que nada pasa por el hecho de como controlar que se pueda operar tanto para una sola instancia como para varias.

Desde ya muchas gracias,

Saludos,

[[Delphius]]

Me pareció oportuno aclarar algo sobre el código que expuse anteriormente. Mi intención (pues.. el código está en versión 0.0beta )no es simplemente contar con un form especializado en mostrarse modal o no, con o sin instancias multiples. Si se fijan bien... tiene en su estructura interna un array del tipo variant. El mismo está pensado para llevar en el cualquier variable que usualmente uno declararía en la unidad. Lo que evitaría tener que estar declarando variables... (eso pretendo yo). Sólo bastaría con asignarles valores a las posiciones que uno desea. Por ejemplo: que Vars[1] indique CantidadActualPedidos. No se si la idea es buena... tiene su defecto... al destruir la forma todo se pierde (por tanto la solución es usar variables globales) [en lo personal... no me gusta emplear demasiada variables globales].


Comento esto ya que para alguno tal vez le sirva... y le de una idea, y para que se me entienda mejor.

Entonces, la forma mantiene encapsulada funciones para manejar el vector y va a tener... (pues todavia falla) funciones para mostrarse adecuadamanete según sea necesario. Si alguien ya tiene algo parecido, o si creen que estoy inventando la rueda me avisan.

Saludos,

[[Lepe]]

Sobre el Variant.... a ver si esto le ves alguna utilidad .


Saludos

[[Delphius]]

Empezado por Lepe

Sobre el Variant.... a ver si esto le ves alguna utilidad .

Pues, lo lamento... no creo que me sirva, jaja. La verdad que esta buena esa unidad. Estaba por ponerle métodos y funciones parecidas a la que tiene. Es que como nunca había utilizado Variant estuve viendo la ayuda sobre este tipo, para darme idea y note que habia funciones para conversiones...

Por ahora me estaba por concentrar en tratar de elaborar funciones para que la ventana se muestre modal, no modal, que permita una o mas instancias, MDI, etc... y como esto es algo más para el aspecto estetico de mis aplicaciones es algo que le dedico poco esfuerzo. Mi mayor concentración está por el momento en la lógica y diseño de unidades de bajo y medio nivel.

Si bien esta unidad (TExpertForm) me viene barbaro para el aspecto visual... si no me sale.., no hay drama. Lo que importa es que la lógica ande.

Si tengo novedades y problemas sobre este aspecto, estaré metiendo dudas.

Saludos,

[[Lepe]]

Como bien dices, hay métodos para convertir el variant, pero al usar dichas conversiones en el programa final, se enrolla mucho el código, por eso mismo creé esa unidad, es más práctico.

Yo lo veo usando un TObjectList con cada VariantElement, así quitaríamos el array que se crea siempre. Pero bueno, si de momento no te sirve... ahí queda para cualquiera.

En tu código hay algo que no entiendo muy bien:

Código Delphi [-]
procedure TExpertForm.ViewModal(OptionView: integer);
begin
 if (NOT Assigned(Self))
    then begin
           with Create(Application) do
             try

Assigned(Self) se refiere a la instancia de TEXpertForm; como siempre haremos algo así:

Código Delphi [-]
var EF :TExpertForm;
begin
 EF := TExpertForm.Create;
 EF.ViewModal(3);

El ExpertForm siempre estará creado, por tanto, jamás entrará en esa rama.

Si el ExpertForm no está creado previamente, delphi nos lanzará un access violation al intentar acceder al método ViewModal (o cualquier otro), antes de intentar ejecutarlo, por ende, tampoco le veo sentido a "With Create(Application)"

No entiendo muy bien la filosofía que sigues, ya que en principio debe existir una instancia de ese ExpertForm, quizás viendo el código del "programa de usuario" (el que usa el módulo ExpertForm), entendería la funcionalidad que quieres crear.

Saludos

[[Delphius]]

Empezado por Lepe

Yo lo veo usando un TObjectList con cada VariantElement, así quitaríamos el array que se crea siempre. Pero bueno, si de momento no te sirve... ahí queda para cualquiera.

Si tiene utilidad... yo dije a modo de broma:

Empezado por Yo

no creo que me sirva, jaja.

Con respecta a lo que comentas del código, si es verdad que tiene fallas... yo escribí el código asi para darme una idea de lo que debería hacer para ir refinandolo. Tengo que mejorarlo.

Empezado por Lepe

No entiendo muy bien la filosofía que sigues, ya que en principio debe existir una instancia de ese ExpertForm, quizás viendo el código del "programa de usuario" (el que usa el módulo ExpertForm), entendería la funcionalidad que quieres crear.

Programa de usuario no hay todavía. Sólo esa unidad. Mi intensión es tener funciones o prodedimientos (a gustos) que permitan a dicha forma (mejor dicho a instancias, pues para ser usada debe ser heredada) mostrarse tanto en forma modal o no, seteando algunos valores en sus propiedades (y dependiendo de ellos). Yo había puesto:

Código Delphi [-]
procedure TExpertForm.ViewModal(OptionView: integer);
begin
 if (NOT Assigned(Self))
    then begin

Pues, el objetivo es determinar si ha sido creada una instancia
de la forma. Si la hay, mostrarla, si no la hay... primero
crearla. Y pruebas que hice, esta parte funciona. Haz la prueba:
1. Agrega al dpr la unidad.
2. Hereda la forma y desactivala de las auto-creadas.
3. Al form1 dale un código donde te guste:

Código Delphi [-]
TExpertForm2.ViewModal(1);

¡La forma se crea, y modal! Ha decir verdad... las pruebas que he realizado me han indicado que sólo funcionan (ViewModal y ViewNotModal) siempre y cuando no esté en auto create forms. Eso si... no recuerdo bien si hice cambios y luego verifique, mis disculpas. Ya me pongo a ver si es asì. Pero de las pruebas que hice, es como describo.

Utilidad que pretendo es encapsular todo y dejar que sea la misma forma decida como debe mostrarse (según las propiedades seteadas) y ofrecer publicamente sólo algunas de las propiedades y funciones. Por ejemplo: tanto ViewModal como ViewNotModal deben ser declaradas en forma privada y sólo dejar View.
El hecho de tener ese array de variables, es para permitir el flujo de datos entre unidades.