Код:
type
TForm1 = class(TForm)
ListBox1: TListBox;
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Assign(ListBox1.Items);
end;
__________________
Пишу программы за еду.
__________________
|