Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-06-2006
Avatar de Julián
Julián Julián is offline
Merodeador
 
Registrado: may 2003
Ubicación: en mi casa
Posts: 2.019
Poder: 10
Julián Va por buen camino
Propiedad con subpropiedades anidadas

Este componente, que no sirve para nada, muestra como hacer propiedades con otras propiedades añadidas.

Para probarlo solo tienes que bajartelo e instalarlo con component-install

El componente incluye el fichero DCR para que incluyas el icono de chiquito en la paleta de componentes, para descargar el zip, haz clic sobre la imagen de Chiquito.

[HTML]
<a href="http://mandacojones.com/delphi/componentes/TorpedoDeLaPradera.zip"><img src="http://mandacojones.com/delphi/componentes/TorpedoDeLaPradera.jpg" border=0></a>[/HTML]

Código Delphi [-]
unit TorpedoDeLaPradera;

interface

uses  Windows, Messages, SysUtils, Classes;

type  

  TTipoJander = ( NoPuedor, Comorl, Fistro);
  TPropiedadJander = class(TPersistent)  
  private
    FGrijander: String;
    FCobarde: Boolean;
    FTipoJander: TTipoJander;
    FOwner: TPersistent;
  protected
    function GetOwner: TPersistent; override;
  public
    constructor Create(AOwner: TPersistent);
  published
    property Grijander: String read FGrijander write FGrijander;
    property Cobarde: Boolean read FCobarde write FCobarde;
    property TipoJander: TTipoJander read FTipoJander write FTipoJander default NoPuedor;
  end;

  TTorpedoDeLaPradera = class(TComponent)
  private
    FJander: TPropiedadJander;
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Jander: TPropiedadJander read FJander write FJander;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('ClubDelphi', [TTorpedoDeLaPradera]);
end;

//////////// Propiedad Jander //////////////////////////////////////////////////
//
constructor TPropiedadJander.Create(AOwner: TPersistent);
begin
  inherited Create;
  FGrijander  := 'Jaaarl';
  FTipoJander := NoPuedor;
  FOwner      := AOwner;
end;
//
function TPropiedadJander.GetOwner: TPersistent;
begin
  Result := FOwner;
end;
//
////////////////////////////////////////////////////////////////////////////////

////////////// TTorpedoDeLaPradera /////////////////////////////////////////////
//
constructor TTorpedoDeLaPradera.Create(AOwner: TComponent);
begin
  inherited;
  FJander:= TPropiedadJander.Create(Self);
end;
//
destructor TTorpedoDeLaPradera.Destroy;
begin
  if Assigned(FJander) then FJander.Free;
  inherited;
end;
//
////////////////////////////////////////////////////////////////////////////////

end.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 09:25:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi