Por que vc não usa a propriedade cursor do label que já vem no delphi? Fabiano
-----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de jeannefoliveira Enviada em: quinta-feira, 13 de outubro de 2005 12:04 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Associar evento a um procedimento definido pelo programador 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 _______________________________________________________ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- <<<<< 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