在C++Builder中如何将一个TImage控件中的图片放在TButton控件的上方

1、为TImage指定父容器

 例如:  img1->Parent = btn1->Parent;

2、BringToFront方法:置于同一父容器控件中的最上方

img1->BringToFront();

在需要实现的事件中写上这两句就能够实现所需效果

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
好的,我可以帮你解答。首先,你可以使用 Delphi 自带的 TWebBrowser 组件来加载网页,然后使用正则表达式或 HTML 解析器来提取图片链接,最后使用 TImage 组件显示图片。以下是一个简单的示例代码: ```delphi procedure TForm1.Button1Click(Sender: TObject); var i: Integer; img: TImage; links: TStringList; begin links := TStringList.Create; try // 加载网页 WebBrowser1.Navigate(Edit1.Text); while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; // 提取图片链接 ExtractImageLinks(WebBrowser1.OleObject.Document, links); // 显示图片 for i := 0 to links.Count - 1 do begin img := TImage.Create(ScrollBox1); img.Parent := ScrollBox1; img.Top := i * 100; img.Left := 0; img.Width := ScrollBox1.ClientWidth; img.Height := 100; img.Picture.LoadFromFile(links[i]); end; finally links.Free; end; end; procedure TForm1.ExtractImageLinks(const Doc: IDispatch; Links: TStrings); var HTMLDoc: IHTMLDocument2; Img: IHTMLImgElement; ImgColl: IHTMLElementCollection; i: Integer; begin HTMLDoc := Doc as IHTMLDocument2; ImgColl := HTMLDoc.images; for i := 0 to ImgColl.Length - 1 do begin Img := ImgColl.item(i, EmptyParam) as IHTMLImgElement; Links.Add(Img.src); end; end; ``` 在上面的代码,`WebBrowser1` 是一个 TWebBrowser 组件,`Edit1` 是一个 TEdit 组件,用于输入网页地址,`ScrollBox1` 是一个 TScrollBox 组件,用于显示图片。`ExtractImageLinks` 过程用于提取图片链接,其 `Doc` 参数是 TWebBrowser.OleObject.Document,`Links` 参数是一个 TStringList 类型的变量,用于保存图片链接。注意,这个过程的 `IHTMLDocument2` 和 `IHTMLImgElement` 是需要使用 MSHTML 单元才能访问的接口。 希望这个示例能够帮助到你。如果还有其他问题,请继续提问。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值