Utiliza el evento OnDrawItem del ComboBox.
(1) Coloca en un formulario un TComboBox y rellena unos cuentos elementos.
(2) Propiedad Style a OwnerDrawFixed (
MUY IMPORTANTE)
(3) Coloca un LAbel en el formulario.
(4) En el evento OnDrawFixed lo siguiente:
Código Delphi
[-]
with Control as TComboBox do
begin
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left, Rect.Top, ComboBox1.Items[Index])
end;
if (odSelected in State) then begin
Label2.Caption := 'Seleccionando el ' + IntToStr(Index) + ' - ' + ComboBox1.Items[Index];
end;
Un saludo.