Ver Mensaje Individual
  #14  
Antiguo 04-10-2008
[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
Hola...

Veo que quieres hacer referencia a las propiedades desde fuera del componente, o sea, cuando este se encuentra en una forma.

Para esto puedes crear propiedades en tu TPanel1 que hagan referencia a las propiedades de los componentes internos:

Código Delphi [-]
type
  TPanel1 = class(TPanel)
  private
    function GetCaption: string;
    procedure SetCaption(const Value: string);
  published
    property CaptionLabel1: string read GetCaption write SetCaption;
  end;

implementation

function TPanel1.GetCaption: string;
begin
  Result := FLabel1.Caption
end;

procedure TPanel1.SetCaption(const Value: string);
begin
  FLabel1.Caption := Value
end;

De esta forma ya puedes hacer algo como:

Código Delphi [-]
procedure TMainForm.Create(Sender: TObject);
begin
  APanel.CaptionLabel1 := 'Hola mundo';
end;

Saludos...

Última edición por maeyanes fecha: 04-10-2008 a las 02:15:46.
Responder Con Cita