图像浏览器

原创于 2009-02-20 10:06:00 发布 · 289 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

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

Delphi 专栏收录该内容

95 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.