delphi 用cxImage控件打开电脑上的图片

Posted 2023-04-08

delphi 7 我在窗体上拖个cxImage控件 在cxImage上添加点击事件，当点击cxImage后弹出路径窗口，选择好路径之后，加载图片到窗体上，这段代码怎么写，哪位大神教教，在线等。。。

参考技术A procedure TForm1.cxImage1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
cxImage1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
end;本回答被提问者和网友采纳

cxImage控件使用

属性:

　　Picture:载入要显示的图片

　　Properties->Caption在没有内容的时候显示在图片框中间的文字

　　Properties->PopupMenuLayout->MenuItems可选择需要显示在图片上的右键菜单命令

//载入图片
procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    cxImage1.Picture.LoadFromFile(OpenDialog1.FileName);
  end;
end;

//保存图片
procedure TForm1.Button3Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
  begin
    cxImage1.Picture.SaveToFile(SavePictureDialog1.FileName);
  end;
end;