双击窗体空白处给窗体添加OnCreate事件代码如下(主要是为了以代码的方式给combobox设置可选的内容
当辩纤亩然也可以在属性编辑器中赵combobox的items属性来添加 一行代表一个选项)
procedure TForm1.FormCreate(Sender: TObject)
begin
ComboBox1.AddItem('第一项', Sender)
ComboBox1.AddItem('second项', Sender)
ComboBox1.AddItem('第3项', Sender)
end
双击按钮添加竖早单击事件如下
procedure TForm1.Button1Click(Sender: TObject)
begin
if ComboBox1.ItemIndex>=0 then
Memo1.Lines.Add(ComboBox1.Items.Strings[ComboBox1.ItemIndex])
//itemindex属性表示 combobox、listbox等相似控件的携森选项序号从零开始 如果没有选择就是-1
//第i个选项的文字内容 表示为ComboBox1.Items.Strings[i]
Memo控件添加一行表示为 Memo1.Lines.Add(‘添加的文字内容’)
end
不知是否来得及呢。。。楼主
感觉上面已经说的很详细了啊,install component 这凯锋只是一种安装方法,如果安装不能正常散孙培运行,可能需要你Tools-->Environment Options 增冲唯加路径欢迎分享,转载请注明来源:内存溢出
评论列表(0条)