COMO PEGAR O VALOR DO TDBCOMBOBOX CONFORME O MOUSE PASSA EM CIMA DA LISTA DELPHI
23/09/2021
0
Eu preciso pegar o valor conforme passo ou mouse pelos itens, eu já consigo fazer isso alterando o style do combobox para csOwnerDrawFixed e utilizando o seguinte código.
combo := (Control as TDBComboBox);
combo.Canvas.TextOut(Rect.Left, Rect.Top, combo.Items[Index]);
if FileExists(caminho...+ combo.Items[Index]+'.jpg') then
Image3.Picture.LoadFromFile (caminho...+ combo.Items[Index]+'.jpg' )
else
Image3.Picture:=nil;
Porem se eu utilizo a seta do teclado pra navegar pelas opções os itens somem.
combo := (Control as TDBComboBox);
combo.Canvas.TextOut(Rect.Left, Rect.Top, combo.Items[Index]);
if FileExists(caminho...+ combo.Items[Index]+'.jpg') then
Image3.Picture.LoadFromFile (caminho...+ combo.Items[Index]+'.jpg' )
else
Image3.Picture:=nil;
Porem se eu utilizo a seta do teclado pra navegar pelas opções os itens somem.
Carlos Eduardo
Curtir tópico
+ 0
Responder
Posts
24/09/2021
Paulo
Eu preciso pegar o valor conforme passo ou mouse pelos itens, eu já consigo fazer isso alterando o style do combobox para csOwnerDrawFixed e utilizando o seguinte código.
combo := (Control as TDBComboBox);
combo.Canvas.TextOut(Rect.Left, Rect.Top, combo.Items[Index]);
if FileExists(caminho...+ combo.Items[Index]+'.jpg') then
Image3.Picture.LoadFromFile (caminho...+ combo.Items[Index]+'.jpg' )
else
Image3.Picture:=nil;
Porem se eu utilizo a seta do teclado pra navegar pelas opções os itens somem.
combo := (Control as TDBComboBox);
combo.Canvas.TextOut(Rect.Left, Rect.Top, combo.Items[Index]);
if FileExists(caminho...+ combo.Items[Index]+'.jpg') then
Image3.Picture.LoadFromFile (caminho...+ combo.Items[Index]+'.jpg' )
else
Image3.Picture:=nil;
Porem se eu utilizo a seta do teclado pra navegar pelas opções os itens somem.
Vamos lá... Você precisa pegar o valor conforme passa o mouse pelos itens.
Qual valor? Valor de onde?
Qual item?
Responder
27/09/2021
Carlos Eduardo
Eu preciso pegar o valor conforme passo ou mouse pelos itens, eu já consigo fazer isso alterando o style do combobox para csOwnerDrawFixed e utilizando o seguinte código.
combo := (Control as TDBComboBox);
combo.Canvas.TextOut(Rect.Left, Rect.Top, combo.Items[Index]);
if FileExists(caminho...+ combo.Items[Index]+'.jpg') then
Image3.Picture.LoadFromFile (caminho...+ combo.Items[Index]+'.jpg' )
else
Image3.Picture:=nil;
Porem se eu utilizo a seta do teclado pra navegar pelas opções os itens somem.
combo := (Control as TDBComboBox);
combo.Canvas.TextOut(Rect.Left, Rect.Top, combo.Items[Index]);
if FileExists(caminho...+ combo.Items[Index]+'.jpg') then
Image3.Picture.LoadFromFile (caminho...+ combo.Items[Index]+'.jpg' )
else
Image3.Picture:=nil;
Porem se eu utilizo a seta do teclado pra navegar pelas opções os itens somem.
Vamos lá... Você precisa pegar o valor conforme passa o mouse pelos itens.
Qual valor? Valor de onde?
Qual item?
Responder
Clique aqui para fazer login e interagir na Comunidade :)