Question

DELPHI中如何实现ComboBox1下拉有1 2（1关联D:\1.doc 2关联D：2.doc）点BUTTON1,OleContainer1显示内容

Answer 1

在combobox1的点击事件里写代码就可以了
combobox1.items.add("1"); //关联字符串'd:\1.doc'
combobox1.items.add('2'); //关联字符串'd:\2.doc'
这样就会在combobox1中加入选项。
然后判断选择的是1还是2
if ComboBox1.ItemIndex =0 then Begin
OleContainer1.CreateObjectFromFile('d:\1.doc',True); //打开1.doc
end
else
OleContainer1.CreateObjectFromFile('d:\2.doc',True); //打开2.doc

追问

这个写在button1单击事件上么？怎么提示IF第一排就错误。。combobox1事件已加好。
if ComboBox1.ItemIndex =0 then Begin
OleContainer1.CreateObjectFromFile('d:\1.doc',True); //打开1.doc
end
else
OleContainer1.CreateObjectFromFile('d:\2.doc',True); //打开2.doc

Answer 2

button判断就好了

追问

怎么写判断问题是

追答

button事件里面的代码楼下已经写了

追问

procedure TForm1.Button1Click(Sender: TObject);
begin
self.combobox1.Text:= '1;
OleContainer1.createobjectfromfile( D:\1.doc ',true);
self.OleContainer1.DoVerb(-1);
self.combobox1.Text:= '2';
OleContainer1.createobjectfromfile( D:\2.doc ',true);
self.OleContainer1.DoVerb(-1);
end;我自己写的只能打开一个，怎么用IF或其它语句判断开来怎么改（楼下的用IF提示错误）

追答

if self.combobox1.Text:= '1' then
begin
OleContainer1.createobjectfromfile( D:\1.doc ',true);
self.OleContainer1.DoVerb(-1);
end
else if
self.combobox1.Text:= '2' then
begin
OleContainer1.createobjectfromfile( D:\2.doc ',true);
self.OleContainer1.DoVerb(-1);
end;

追问

第一行 if 和combobox1提示红色错误~~

追答

等号 前的 冒号去掉

追问

一样的。。（我是在combobox1的items属性里面添加的1和2没关系吧）打了if就红字了。。

追答

楼下的对的，你错误截图上来