简单的问题 对你们是简单的

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Self.OpenDialog1.Execute then
   begin
     Self.WebBrowser1.Navigate(Self.OpenDialog1.FileName);
   end;  
end;end.例子做完了 完全不明白是什么意思例子是 通过控件 打开本地的 gif文件
但是 代码的 意思我不明白
大家给讲解下

Answer 1

这个不当是 gif 文件, 所有的 html 都可以打开, 上面代码作死了, 要不然 Self.WebBrowser1.Navigate('www.netease.com') 都是可以的要单打开 gif 的可以找个专门的 TGif 组件

Answer 2

代码的意思是不是  Self.WebBrowser1.Navigate( ); 调用了 Self.OpenDialog1.Execute 啊？

Answer 3

self.可以去掉
 if OpenDialog1.Execute then 
   begin 
     ShowMessage(OpenDialog1.FileName); 
   end;   先看看这个 然后再研究WebBrowser1