Timage1

Delphi

13/05/2003

Caro colegas

Como eu posso mim referir a uma image por uma variavel,
Tentei os exeplos abaixo mais da erro

Exemplo1:
var
nomedaimagem : string;
begin
nomedaimagem := ´image1´;
nomedaimagem.picture := image2.picture;
..

Exemplo2:
var
nomedaimagem : string;
...
nomedaimagem :=´image2´;
TImage(nomedaimagem).Picture := Image_matriz_marcado.picture;

OBS: No clipper eu conseguia passar uma valor como parametro

Muito Obrigado

Ricardo


Zlink

Zlink

Curtidas 0

Respostas

Rosivaldo

Rosivaldo

13/05/2003

Exemplo1:
var
nomedaimagem : timage;
begin
nomedaimagem := timage.create(self);
nomedaimagem.picture := image2.picture;


GOSTEI 0
Zlink

Zlink

13/05/2003

Bem amigo, obrigado pela resposta,
Mais não é bem isto que eu quero,
Não é criar um componente imagem em modo de execução,
Eu que é pode atribuir o nome de um Timage há uma variavel

onde X = 1 ou 2 ou 3 ...

image+X := imagequalquer.picture;

sacou.

Obrigado


GOSTEI 0
Marconi

Marconi

13/05/2003

Caro colegas Como eu posso mim referir a uma image por uma variavel, Tentei os exeplos abaixo mais da erro Exemplo1: var nomedaimagem : string; begin nomedaimagem := ´image1´; nomedaimagem.picture := image2.picture; .. Exemplo2: var nomedaimagem : string; ... nomedaimagem :=´image2´; TImage(nomedaimagem).Picture := Image_matriz_marcado.picture; OBS: No clipper eu conseguia passar uma valor como parametro Muito Obrigado Ricardo


O nome da imagem pode ser uma string.

Use assim
variavelstring:=´c:\´+nomedaImagem+´.bmp´; // ou .jpg ou .ico
Image1.Picture.LoadFromFile(variavelstring);

Marconi


GOSTEI 0
POSTAR