J
jh_qianhf
Unregistered / Unconfirmed
GUEST, unregistred user!
我用ActiveForm做ocx控件时加了一个OpenDialog控件
procedure Twjglcilent2.BitBtn2Click(Sender: TObject);
var s:string;
begin
if OpenDialog1.Execute then
begin
s:= OpenDialog1.FileName;
showmessage(s);
Edit1.Text :=OpenDialog1.FileName
end;
end;
结果在IE端执行时有的机器是好的,有的显示为乱码。
procedure Twjglcilent2.BitBtn2Click(Sender: TObject);
var s:string;
begin
if OpenDialog1.Execute then
begin
s:= OpenDialog1.FileName;
showmessage(s);
Edit1.Text :=OpenDialog1.FileName
end;
end;
结果在IE端执行时有的机器是好的,有的显示为乱码。