Já tentou fazer um update no form depois do evento?
----- Original Message ----- From: Leslyn Fernandes To: delphi-br@yahoogrupos.com.br Sent: Monday, October 22, 2007 4:39 PM Subject: Re: [delphi-br] Problema carregando imagem do imagelist dinamicamente Sim... é isso, mas tenho 3 imagens que podem ser modificadas... quando ele clicar no botão, modifica pra um tipo... clicando denovo, muda pra outro e clicando uma terceira vez, volta para o primeiro... A idéia é fazer sort.... no primeiro caso, sem sort, no segundo caso, sort = ASC e no terceiro, DESC... Mas o problema é q quando passa pelo código, ele entra normalmente e, debugando, parece fazer o q deve ser feito... Mas não muda a imagem na tela... os tags são alterados normalmente... menos as imagens... vlw! Leslyn On 10/22/07, Leonardo Cruz Costa - P. M. Quissamã < [EMAIL PROTECTED]> wrote: > > Puxa, achei que o método foi tão complicado pra algo relativamente > corriqueiro. A idéia aqui é modificar a imagem de um SpeedButton em runtime, > certo? Se for isso, confirma aí. Acredito que podemos chegar num método mais > resumido. > > Abs. > > Léo > > > ----- Original Message ----- > From: Leslyn Fernandes > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Sent: Monday, October 22, 2007 12:41 PM > Subject: [delphi-br] Problema carregando imagem do imagelist dinamicamente > > Eu fiz o seguinte método: > > procedure TFrmPipeline.ChangeButton(Sender: TSpeedButton); > begin > Case Sender.Tag of > 0 : > begin > Sender.Tag := 1; > imagPadrao.GetBitmap(0, Sender.Glyph); > end; > 1 : > begin > Sender.Tag := 2; > imagPadrao.GetBitmap(3, Sender.Glyph); > end; > 2 : > begin > Sender.Tag := 0; > imagPadrao.GetBitmap(32, Sender.Glyph); > end; > end; > end; > > E a chamada é : ChangeButton(sbutOrderCFANTASIA); > > Porém, o método não funciona! Não consigo entender porque... Inicialmente > o > Tag está em 0... E as imagens já estão no ImageList (imagPadrao). > > Alguém poderia me ajudar? > > Grato desde ja, > > Leslyn Fernandes > > [As partes desta mensagem que não continham texto foram removidas] > > ---------------------------------------------------------- > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.488 / Virus Database: 269.15.5/1084 - Release Date: > 21/10/2007 15:09 > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.5/1084 - Release Date: 21/10/2007 15:09 [As partes desta mensagem que não continham texto foram removidas]
