Veja como não é complicado colocar imagens dentro de um ComboBox.

Inicialmente, é necessário setar a propriedade "Style" do ComboBox para "csOwnerDrawVariable". Desta forma teremos a liberdade para desenharmos o que quisermos dentro do ComboBox. Imaginemos que o nosso ComboBox possui três ítens. E para cada ítem colocaremos uma imagem diferente. Para isso, criaremos um vetor que terá um número de elementos correspondente a quantidade de ítens de nosso ComboBox. No nosso exemplo, serão três elementos. Este vetor deve ser criado como uma variável "private" (em "private declarations" do form). private   Img: Array[0..2] of TBitmap; A seguir, no evento "OnCreate" do nosso formulário colocaremos o seguinte: procedure TForm1.FormCreate(Sender: TObject); begin   Img[0] := TBitmap.Create;   Img[0].LoadFromFile('edit.bmp');   ComboBox1.Items.AddObject('Edit', Img[0]);   Img[1] := TBitmap.Create;   Img[1].LoadFromFile('delete.bmp');   ComboBox1.Items.AddObject('Delete', Img[1]);   Img[2] := TBitmap.Create;   Img[2].LoadFromFile('export.bmp');   ComboBox1.Items.AddObject('Export', Img[2]); end; Agora o trabalho é no evento "OnDrawItem" do ComboBox que deverá ter o seguinte: procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;   Rect: TRect; State: TOwnerDrawState); var   Bmp: TBitmap;   Off: Integer;   Cmb: TComboBox; begin   Cmb := (Control as TComboBox);   with Cmb.Canvas do begin     FillRect(Rect);     Off := 0;     Bmp := TBitmap(ComboBox1.Items.Objects[Index]);     if Bmp <> nil then begin        BrushCopy(Bounds(Rect.Left+2, Rect.Top+2, Bmp.Width, Bmp.Height), Bmp, Bounds(0, 0, Bmp.Width, Bmp.Height), clOlive);        Off := Bmp.Width+8;     end;     TextOut(Rect.Left + Off, Rect.Top, ComboBox1.Items[Index]);   end; end; E, finalmente, no evento "OnMeasureItem" do ComboBox: procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;   var Height: Integer); begin   Height := 20; end; Alguma explicação: O evento "OnDrawItem" é o responsável por "desenhar" cada ítem do ComboBox quando clicamos no ícone para abrí-lo. Simplesmente aproveitamos isto para desenhar a nossa imagem antes do texto. Neste mesmo evento fizemos uma chamada a função "BrushCopy", onde o último parâmetro é a cor que deseja que fique transparente. Como eu utilizei imagens que vem com o Delphi, a cor de fundo destas imagens é o amarelo escuro (clOlive). Daí pra frente é testar com imagens diferentes, porém, uma sugestão é que todas tenham o mesmo tamanho para que se mantenha um padrão dentro do seu ComboBox.

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1
Data.........: 10/12/2004 10:22:01
Visualizado..: 5876 vezes
Fonte........: Internet - Desconhecido