杜 杜宝 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-03 #2 呵呵,一个例子: 代码: uses ....,Printers;//加上Printers procedure TForm1.Button1Click(Sender: TObject); begin ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers); end;
呵呵,一个例子: 代码: uses ....,Printers;//加上Printers procedure TForm1.Button1Click(Sender: TObject); begin ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers); end;
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-03 #3 uses printers . . ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers) ; for i:=0 to printer.Printers.Countdo combobox1.Items:=copy(combobox1.Items,1,pos(' on ',combobox1.Items)-1);
uses printers . . ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers) ; for i:=0 to printer.Printers.Countdo combobox1.Items:=copy(combobox1.Items,1,pos(' on ',combobox1.Items)-1);