Question

有急用，用Delphi设计程序，望各位大侠帮帮忙做出来吧！Delphi程序设计。

请将主程序代码写下。

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
   lst1.MultiSelect:=True;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
begin
  for I := 0 to lst1.Count-1 do
  begin
    if lst1.Selected[i] then
    begin
      cbb1.Items.add(lst1.Items[i]);
    end;
  end;
  
  end;

这问题是哪个学校的。我都见了几次了。

Answer 2

你们大学里还教delphi吗？真少见了呢！！这个不难，就了解下控件的属性，在添加按钮的单击事件里，将列表中的字段赋值给下拉框。。。属性自己查查，或问问同学。

Answer 3

课间作业，50块帮你搞定，可长期合作.

Answer 4

太简单了，一点技术含量都没有。。。