Ich habe das ganze jetzt in der Zwischenzeit mal ausprobiert mit der Procedure vom Christian, nur leider bekomme ich immer noch eine AccessViolation in der Zeile APapeTrays.Append(bin[i]);
Da die
Unit eh OpenSource ist, hänge ich es einfach an. Das ist die
Unit aus meiner Komponente
TPrinterInfo. Die angehängte
Unit beinhaltet schon die Procedure von Christian.
Aufrufen tue ich das ganze so :
Delphi-Quellcode:
procedure TForm23.LB_InstPrnClick(Sender: TObject);
begin
PrnInfo_1.PrinterIndex := LB_InstPrn.ItemIndex;
LB_Papertray.Items.Clear;
PrnInfo_1.GetPaperTrays(LB_Papertray.Items);
end;