急需帮助:要是想在表单的edit中输入网址,回车后根据网址调用IE打开网页,该怎么做?

Question

麻烦说的详细一点:加什么控件,以及代码
谢谢!

Answer 1

在edit1得onkeypress中加入如下代码：
  if key=#13 then
    ShellExecute(Handle,nil,PChar(edit1.text),nil,nil,SW_SHOWNORMAL);
注意;单元的uses中需加入shellapi。

Answer 2

SHELLEXECUTE(HANDLE,NIL,PCHAR('HTTP://WWW.SCU.EDU.CN'),NIL,NIL,SW_SHOWNORMAL);

Answer 3

也可以：
uses
  comobj;procedure TForm1.Button1Click(Sender: TObject);
var
  IE: Variant;
begin
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := True;
  IE.Navigate('http://expert.csdn.net/expert/forum.asp');
end;不过，还是一楼二楼的方法方便快捷^_^