Esse "i" pertence a um loop.
Por exemplo:
For i:=0 to Application.ComponentCount -1 do
begin
if Application.Component[i] is TLabel then
TLabel (Component[i]).Font.Style = [fsUnderline];
end;
--- Em delphi-br@yahoogrupos.com.br, "jeannefoliveira"
<[EMAIL PROTECTED]> escreveu
> Oi gente, sou nova no delphi e no grupo. Estava vendo as mensagens
> antigas e me deparei com essa. A minha duvida eh a seguinte: Como é
> que eu sei o valor do "i" em (Components[i] as
> TLabeledDBEdit).OnMouseMove := SetCursorLabel?
>
> Valeu...
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Eduardo" <[EMAIL PROTECTED]>
> escreveu
> > (Components[i] as TLabeledDBEdit).OnMouseMove := SetCursorLabel
> >
> > Só isso.
> >
> > Eduardo
> >
> >
> > -----Mensagem original-----
> > De: delphi-br@yahoogrupos.com.br [mailto:delphi-
> [EMAIL PROTECTED]
> > Em nome de Celio Ricardo
> > Enviada em: domingo, 2 de outubro de 2005 11:28
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: [delphi-br] Associar evento a um procedimento definido pelo
> > programador
> >
> >
> > Tenho um Label que desejo mudar o cursor quando o usuario mover
> sobre
> > ele.
> >
> > Sei que devo usar o evento OnMouseMove e que para associar este
> evento
> > a um procedimento criado por mim, eu devo criar uma procedure com os
> > mesmos parametros (Sender,TShiftSate,x,y).
> >
> > Mas como, em tempo de execução, eu devo associar este procedimento
> ao
> > evento?
> >
> > Estou usando=
> >
> > if ( (Components[i] as TLabeledDBEdit).EditLabel.Font.Style
> > =[fsUnderline]) then
> > begin
> > (Components[i] as TLabeledDBEdit).OnMouseMove :=
> > SetCursorLabel(Sender,ShiftState,x,y);
> > end;
> >
> > Agradeco qualquer ajuda
> >
> >
> >
> >
> >
> > --
> > <<<<< 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]
> >
> >
> >
> >
> > Yahoo! Grupos, um serviço oferecido por:
> >
> >
> <http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_celsamsung_cam
> di
> > g.gif>
> >
> > _____
> >
> > 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]
> > <mailto:[EMAIL PROTECTED]
> subject=Unsubscribe>
> >
> >
> > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
> >
> >
> >
> >
> > [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
