图像浏览器

最新推荐文章于 2025-04-30 11:21:31 发布

原创最新推荐文章于 2025-04-30 11:21:31 发布 · 300 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#浏览器 #image #forms #windows #class

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一种使用Delphi编程语言实现图片加载的方法。通过创建一个名为TFImage的窗体，该窗体包含工具栏、按钮和图像控件等元素。当点击“打开”按钮时，将触发文件对话框，允许用户选择并加载图片到应用程序中。

unit UImage;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls, jpeg;
type
  TFImage = class(TForm)
    ToolBar1: TToolBar;
    BOpen: TSpeedButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    procedure BOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FImage: TFImage;

implementation   
uses UDialog;

{$R *.dfm}

procedure TFImage.BOpenClick(Sender: TObject);
begin  
  if  FDialog.ShowModal = mrOk	 then
    Image1.Picture.LoadFromFile(FDialog.FileListBox1.FileName);
end;

end.