求 delphi 通过文件对话框，更换Image图片 的代码
功能就是 我双击Image 控件后 出现跟图片差不多的文件对话框 然后我选中图片点击确定就可以替换。
请高手帮个忙，我网上找了好久没找到。
第1个回答 2011-12-06
窗体上方个TOpenDialog控件，并设置需要的图片扩展名。
图片的双击事件：
procedure TForm3.Image1DblClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName );
end;
end;本回答被提问者采纳
图片的双击事件：
procedure TForm3.Image1DblClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName );
end;
end;本回答被提问者采纳
相似回答