Dynamisch erzeugte TListbox zeigt nicht die Vorauswahl an

[peterbelow]

Zitat von mcinternet:

Also, witzig ist, dass der nun in der IDE den selektierten Drucker anzeigt.
Zur Runtime leider nicht

Beim Create:
CreateWND

Code:

procedure TDruckerPanel.CreateWnd;
begin
  inherited;
  if (csDesigning in ComponentState) then
  begin
    fLBDruckerAuswahl.Items      := Printer.Printers;
    fDruckerNummer               := Printer.PrinterIndex;
    fDrucker                     := Printer.Printers[Printer.PrinterIndex];
    flblAuswahlnr.Caption        := IntToStr(Printer.PrinterIndex);
    flblAuswahl.Caption          := fDrucker;
    Application.ProcessMessages;
    fLBDruckerAuswahl.ItemIndex := Printer.PrinterIndex;
    fLBDruckerAuswahl.Selected[Printer.PrinterIndex] := true;
    fLBDruckerAuswahl.Repaint;
  end;
  Application.ProcessMessages;
end;

Beste Grüße

mcinternet

Ist doch klar, Du setzt den Itemindex ja nur im Designer! Die fLBDruckerauswahl-Zeilen gehören hinter das end. Und entferne das Repaint und unbedingt auch das ProcessMessages, das macht absolut keinen Sinn!