Question

I’m having a TComboBox component(comboxCountry) on my form.
And here’s the items inside the TComboBox.

Item 1 : ‘Singapore SG’

Item 2 : ‘India IND’

Item 3 : ‘Australia AUS’ and etc etc etc ..

When the combobox value is changed, i want the combboxCounty.Text to
only display the country code instead of the whole String in the items list.
For example, i want to only display ‘SG’ instead of ‘Singapore SG’ .. Here’s how i do
for cboxBankCategory OnChange function:

if comboxCountry.ItemIndex = 0 then
comboxCountry.Text := 'SG'

else if comboxCountry.ItemIndex = 1 then
comboxCountry.Text := 'IND'

else
comboxCountry.Text := 'AUS'

It seems correct, but it doesn’t works for me as the comboxCountry.Text still display
the whole country definition in the item list instead of only the country code, anything
wrong with my code anyone ?

Thanks.

Answer 1

Set the combobox style to csOwnerDrawFixed, and in the onDrawItem event put this:

procedure TForm1.comboxCountryDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  s: String;
begin
  if not (odComboBoxEdit in State )then
    s := comboxCountry.Items[Index]
  else begin

if comboxCountry.ItemIndex = 0 then
s := 'SG'

else if comboxCountry.ItemIndex = 1 then
s := 'IND'

else
s := 'AUS'
  end;
  comboxCountry.Canvas.FillRect(Rect);
  comboxCountry.Canvas.TextOut(Rect.Left + 2, Rect.Top, s);

end;

and clear the OnChange event.