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
