Cria��o de Componente TPanel com TImage dentro.

Question

Ol� pessoal,estou criando um componente que herda de TPanel e que ter� um TImage dentro.Obs.: Futuramente ele ter� um TCheckBox :)Estou fazendo assim:[code:1:4d1a4243ee]  TPanel_IMG_CeckBox = class(TP...

Rodc · Answer

[code:1:17f3a79af2]  TPanel_IMG_CeckBox = class(TPanel)  private    { Private declarations }    FImage : TImage;  protected    { Protected declarations }  public    { Public declarations }    constructor Create(AOwner : TComponent); override;         destructor Destroy; override;                           published    { Published declarations }    property Image: TImage read FImage write FImage;  end; procedure Register; implementation procedure Register; begin   RegisterComponents(�Carlos_Pacote�, &#91;TPanel_IMG_CeckBox&93;); end; { TPanel_IMG_CeckBox } constructor TPanel_IMG_CeckBox.Create(AOwner: TComponent); begin   inherited Create(AOwner);       {Chama o constructor original (herdado)}   FImage := TImage.Create(nil);  FImage.Parent := self;  FImage.Align := alTop;  FImage.Visible := true;end; destructor TPanel_IMG_CeckBox.Destroy; begin   FImage.Free;  inherited destroy; end; end.[/code:1:17f3a79af2]� por este caminho, s� que, se n�o me engano, quando voc� clicar na propriedade do object inspector ir� dar erro.Tenta dar uma olhada em como os componentes do Delphi implementam....

Carlosib · Answer

Amigos,no c�digo postado por �RODC� ele colocou um COMOBOX no object inspector.Ent�o alterei o construtor para:DE:[code:1:ca598fe650]FImage := TImage.Create(nil); [/code:1:ca598fe650]PARA:[code:1:ca598fe650]FImage := TImage.Create(self); [/code:1:ca598fe650]Ficando assim:[code:1:ca598fe650]constructor TPanel_IMG_CeckBox.Create(AOwner: TComponent); begin   inherited Create(AOwner);       {Chama o constructor original (herdado)}   FImage := TImage.Create(SELF);   FImage.Parent := self;   FImage.Align := alTop;   FImage.Visible := true; end; [/code:1:ca598fe650]Agora tenho acesso as propriedades do TImage no object inspector do TPanel_IMG_CheckBox por�m n�o tenho acesso aos eventos do TImagem?Como resolvo isso?...

Rodc · Answer

Voc� quer acesso a todos os eventos do TImage ou apenas algum espec�fico?...

Carlosib · Answer

de todos :)...

Rodc · Answer

Voc� pode acessar em runtime usando o c�digo abaixo.

SeuComponent.Image.OnClick := MeuOnClick;
.....

procedure TForm1.MeuOnClick(Sender: TObject);
begin

end;

Pelo ObjectInspector, ele n�o aparece um �+� do lado da propriedade Image? Se voc� clicar nesse �mais� aparece as propriedades do componente e na aba de Eventos aparece os eventos da imagem tamb�m. S� n�o aparece a imagem caso voc� tire o par�metro �write� na declara��o da propriedade Image, tornando-o ReadOnly.

property Image: TImage read FImage;

Carlosib · Answer

aparece apenas as propriedades os eventos n�o aparecem.No ObjectInspector tenho o IMAGE com o sinal de + apenas na aba propriedades. Na aba eventos n�o tenho nada relacionado ao IMAGE....

Rodc · Answer

� por causa do FImage := TImage.Create(self);
Como o �respons�vel� pela imagem � o componente, ele n�o deixa voc� linkar um evento a um procedimento que n�o est� dentro do cliente.
Uma forma de contornar � passar a �responsabilidade� da imagem para quem criou o seu componente usando FImage := TImage.Create(AOwner);. Mas isto n�o � nem de longe recomendado.

Sugiro voc� n�o criar a imagem pelo componente, deixe apenas o combobox (como estava no meu primeiro exemplo) para que o usu�rio possa linkar a propriedade com um TImage que j� exista no formul�rio.

Outra op��o seria voc� criar o evento que voc� quer no seu componente. Segue o exemplo para o OnClick da Imagem:

  TPanel_IMG_CeckBox = class(TPanel)
  private 
    { Private declarations } 
    FImage : TImage;
    FOnImageClick: TNotifyEvent;
    procedure MeuOnImageClick(Sender : TObject);
  protected 
    { Protected declarations } 
  public 
    { Public declarations } 
    constructor Create(AOwner : TComponent); override;     
    destructor Destroy; override;                          
  published 
    { Published declarations }
    property Image: TImage read FImage; // Note que a propriedade est� ReadOnly
    property OnImageClick: TNotifyEvent read FOnImageClick write FOnImageClick;
  end; 

procedure Register;

implementation 

procedure Register; 
begin 
  RegisterComponents(�Carlos_Pacote�, [TPanel_IMG_CeckBox]); 
end; 

{ TPanel_IMG_CeckBox } 

constructor TPanel_IMG_CeckBox.Create(AOwner: TComponent); 
begin 
  inherited Create(AOwner);       {Chama o constructor original (herdado)} 
  FImage := TImage.Create(SELF); 
  FImage.Parent := self;
  FImage.Align := alTop;
  FImage.Visible := true;
  FImage.OnClick := MeuOnImageClick;
end;

destructor TPanel_IMG_CeckBox.Destroy; 
begin 
  FImage.Free; 
  inherited destroy; 
end;

procedure TPanel_IMG_CeckBox.MeuOnImageClick(Sender : TObject);
begin
if (Assigned(FOnImageClick)) then
    FOnImageClick(Self);// Aqui o Sender passa a ser o seu componente, n�o mais o TImage
end;

end.

F�rum Cria��o de Componente TPanel com TImage dentro. #354990