Reto Delphi
 

Nuestro amigo Al González ha publicado en su blog un reto para los programadores Delphi, puede participar quien quiera y obtener el premio para el ganador a la mejor solución.

Buen reto, a ver los programadores del foro si salen por la puerta grande o por el chiquero, yo miraré desde la barrera. :D

Leer el archivo DFM asociado al formulario. Allí puedes encontrar el nombre que tendrá el componente. :cool:

Deberías contestar en los comentarios del blog de Al, ya que allí están las respuestas de los participantes :)

Suerte ^\||/

¿Ningún valiente se atreve con el reto?, jejeje... :)
Blog de Al González.

Muchas gracias, Casimiro, por hacer eco del ejercicio que propuse en mi bitácora hace casi 10 meses.

No creí que fuera a transcurrir tanto tiempo sin que algún compañero de la Comunidad lo resolviera. Algunos pensarán entonces que el reto es muy difícil, pero no es así, es sólo que el truco está un poco escondido en los engranes de la VCL (además de la poca difusión que ha tenido).

Me gustaría ofrecer un monto mayor de premio, y si llega a estar en mis capacidades así lo haré con mucho gusto. Como sea, ojalá más gente se una.

Un saludo y buena semana a todos. :)

Al González,

Los comentarios anteriores fueron tomados de : Rescatando a Delphi - Reto Delphi

Revisa este código:

Código Delphi [-]
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
    
      TButton = class(StdCtrls.TButton)
      private
        FName : String;
      public
        constructor Create(AOwner: TComponent); override;
        procedure SetName(const NewName: TComponentName); override;
        destructor Destroy; override;
      end;
    
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    constructor TButton.Create(AOwner: TComponent);
    begin
       inherited Create(AOwner);
    end;
    
    procedure TButton.SetName(const NewName: TComponentName);
    begin
       inherited SetName(NewName);
       FName := Name;
       ShowMessage(Name);
    end;
    
    destructor TButton.Destroy;
    begin
       inherited;
    end;
    
    end.

El código anterior en Delphi 7 bajo Windows 7 Professional x32, obtiene y muestra el nombre asignado en tiempo de diseño a las instancias del componente TButton inmediatamente después de finalizar el constructor del mismo y antes de que sea visualizado el formulario. Los métodos Create y Destroy no son necesarios para obtener el nombre del componente TButton, fueron colocados solo para seguir la secuencia en Runtime del componente en modo Debug.

Nota: Se utilizo como ejemplo el componente TButton, pero el mismo procedimiento se puede extender a cualquier componente dentro de un formulario, con lo cual se obtiene el nombre asignado al mismo en tiempo de diseño inmediatamente después de finalizar su constructor.

Comentario: Desconozco si esta es la solución que esperabas encontrar :confused: , pero creo que resuelve el problema en términos de POO de forma simple y directa por medio de la redefinición del método virtual SetName del componente requerido :rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

Pero contesta en el blog de Al González :p

Casimiro,

Ya lo conteste :)



Nelson.

Estupendo, alguien se va a llevar el premio ^\||/

El reto especifica que el nombre ha de obtenerse desde el constructor del componente, no del formulario. El método SetName es llamado por TReader.ReadComponent después de la llamada al constructor del componente.

// Saludos