Fórum Enviar componente para frente #290976

NomeComponente.BringToFront;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 TnovaImage = class (TImage) //Definiçao de Ponteiro De Metodo .
    constructor Create (AOwner: TComponent); override;
    destructor Destroy; override;
  end;

constructor TnovaImage.Create(AOwner: TComponent);
begin
  inherited;
end;

destructor TnovaImage.Destroy;
begin
  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TnovaImage.Create (Form1.Panel1) do
  begin
    Parent := Form1.Panel1;

//Aqui se define a localização desta image no Painel..Alterando o valor de Left //e Top a Posição desta image se altera..

    Left := 47;
    Top :=12;

{ eu não sei como voce esta definindo isto em tempo de execução.. o valor da propriedade Picture do Componente Image Criado ..  Só a titulo de exemplo eu inserir um ImageList no Formulário e o carreguei com uma imagem , 
Depois eu atribui esta Imagem a Propriedade Picture No Novo Componete Criado}

    Picture:=Image1.Picture; 
  end;
end;

type 
  TForm1 = class(TForm) 
    Image1: TImage; 
    Panel1: TPanel; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
 TnovaImage = class (TImage) //Definiçao de Ponteiro De Metodo . 
    constructor Create (AOwner: TComponent); override; 
    destructor Destroy; override; 
  end;