定义下COMBOBOX的onchange事件即可,再根据内容对memo添加相关即可!
如果你的下拉列表框中的选项是固定的,那么你可以用
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:begin
memo1.text:='jb';
end;
1:begin
memo1.text:='djb';
end
.....
end;
end;
COMBOBOX的onchange中加入代码,
Memo1.lines.add(uppercase(combobox1.text));
COMBOBOX的onchange事件
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
memo1.Text:=combobox1.items.strings[combobox1.ItemIndex];
end;