从文件delphi导入图像

Question

我熟悉delphi脚本，所以我基本上需要一个强有力的方向来开始。我已经完成了从其他语言的文件导入图像，这一点非常简单，但我可以找到关于delphi的文档。

我需要能够在按钮上注册控件事件，该按钮将打开“选择文件夹/文件”对话框，然后将图像导入到我可以附加到某种列表的对象中。

任何人都有这方面的文件吗？

Answer 1

虽然你的问题相当广泛，而且“delphi脚本编写”听起来很有意思，但这个例子可能会让你开始：

项目：让用户选择图像并显示此图像

此表单包含TButton，TOpenPictureDialog和简单TImage，用于显示一张图片（抱歉，此示例中没有图片列表）。

第1部分（“在按钮上注册控制事件”）：

双击表单设计器中的按钮，将OnClick事件处理程序附加到按钮。如果您的按钮Name为btnOpenPicture，则自动生成的处理程序将具有名称btnOpenPictureClick（请参阅以下代码）。当用户单击按钮时，将执行此处理程序中的代码。

procedure TForm1.btnOpenPictureClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute(Self.Handle) then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

第2部分（“'选择文件夹/文件'对话框”）由OpenPictureDialog1.Execute表示，打开一个用户可以选择图片的对话框。如果用户选择不取消对话框而是选择图像文件（文件名存储在Execute），True命令将等待用户关闭对话框并返回OpenPictureDialog1.FileName。 / p>

第3部分（“将图像导入对象”）将为Image1.Picture.LoadFromFile，指示TImage组件加载并显示用户选择的文件。

我无法立即命名包含在Delphi中的组件，该组件可以轻松地用作可视化显示图像的列表（这是您的“附加到某种列表”）。我只知道一些免费的第三方组件，因此不适合快速试验。

也许这可以成为提出更具体问题的基础（正如您的问题评论员所鼓励的那样）。我已经有一个：“我可以使用VCL组件来显示图像列表吗？”

Answer 2

有很多关于如何做到这一点的文章和教程。加载图片的代码可以在this Stackoverflow question中找到;要完成您的问题，您需要一个TButton，可能还需要TOpenPictureDialog。