ComboBox.ItemIndex aktualisieren

[Peeters]

Hallo,

ich möchte gerne mit folgenden Quell-Code:

Delphi-Quellcode:

ComboBoxDrucker.Items := Printer.Printers;

ComboBoxDrucker.Text := ccfg.druckerT;

Printer.PrinterIndex := ComboBoxDrucker.ItemIndex;

Das o.g. Beispiel fügt alle Drucker in die ComboBox ein. Aus einer Ini-Datei setzte ich den vorab gesetzten Drucker fest, nun möchte ich den Index des ausgewählten Druckers ermitteln. Nur wie kann ich auf diese weise den Index der ComboBox aktualisieren?

Besten Dank im voraus.

[Peeters]

Jaja, die Ideen kommen immer erst nachdem man das Problem im Forum geschrieben hat. Die Antwort lautet:

ComboBoxDrucker.ItemIndex := ComboBoxDrucker.Items.IndexOf(ComboBoxDrucker.Text); Danke.

[marabu]

Hallo,

auch wenn du dir scheinbar selbst zu helfen weißt, hier noch etwas zum drüber nachdenken:

Delphi-Quellcode:

begin
  with Printer, ComboBoxDrucker do
  begin
    Style := csDropDownList; // besser im OI setzen
    PrinterIndex := Printers.IndexOf(ccfg.DruckerT);
    Items.Assign(Printers);
    ItemIndex := PrinterIndex;
  end;
end;

Freundliche Grüße

[Peeters]

So wollte ich die Komponente nicht benutzen. Dieses Beispiel war nur zu Anschauung gedacht, um es zu verstehen.

Gruß