Voce pode utilizar a propriedade TAG dos seus TImage. Essa propriedade e'
numerica e nao tem proposito, voce pode usar como quiser.
Atribua numeros de 1 a 15 nos TAG de cada TImage.
Crie uma variavel publica no seu segundo form (aquele que so mostra uma
imagem), ex.: Indice.
Ao clicar em uma figura, alem de chamar o segundo formulario que mostra a
figura, passe o valor do TAG do TImage clicado para a variavel criada no
segundo formulario.
Nesse segundo formulario, ao pressionar ENTER, incremente a sua variavel
(some 1) e faca uma varredura de todos os componentes TImage do primeiro
form, para verificar a proxima imagem, atraves do TAG:
var i: Integer;
begin
Inc(Indice);
for i := 1 to Form1.ControlCount -1 do
begin
if Form1.Controls[i] is TImage then
begin
if TImage(Form1.Controls[i]).Tag = Indice then
begin
Image1.Picture.Assign(TImage(Form1.Controls[i]));
Exit;
end;
end;
end;
end;
Nao sei se fui claro...
Outra coisa... e possivel fazer array de componentes sim. Na secao VAR da
sua unit declare:
Imagem: Array[1..15] of TImage;
E, para criar os componentes no formulario:
Imagem[1] := TImage.Create(Self);
Imagem[1].Parent := Form1;
Imagem[1].Width := 100;
Imagem[1].Height := 100;
Imagem[1].Top := 10;
Imagem[1].Left := 10;
Imagem[1].OnClick := SeuProcedimento;
Imagem[1].Visible := True;
Imagem[2] := ... etc etc...
Fernando
At 01:22 10/11/2004, you wrote:
Olá amigos,
Estou fazendo um Visualizador de Imagens
Essa imagens são fixas e não em diretórios, então coloquei 15 componentes
TImage no Form com suas respectivas imagens.
Quando clico em um deles abro um segundo Form com 1 componente TImage que
recebe a propriedade Picture do TImage clicado no form alterior.
Até aí tudo bem, o que eu quero agora é fazer com que ao ser precionada a
tecla Enter pule para a próxima imagem.
Capturar o precionamento eu sei através do OnKeyDown mas e para saber qual
é o próximo componente TImage que a Picture será exibida?
Tentei fazer um array com todos TImage guardando sua Ordem, mas não dá pra
declarar um array de TImage ou TObject
Alguém tem uma solução pro meu problema?
Abraços
Marcos Jordão
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
