如何避免将TImage中的图片编译进EXE文件？

以下是几种无需手动删除图片的可行方案，适配不同Delphi版本：

方法1：DFM中直接使用条件编译指令 #

Delphi允许在DFM文件中嵌入条件编译逻辑，直接控制图片是否被编译进EXE：

1. 右键目标窗体 → View as Text，切换到DFM文本编辑模式
2. 找到对应TImage的定义块，用{$IFDEF DESIGNTIME}和{$ENDIF}包裹Picture.Data部分：

object Image1: TImage
  Left = 24
  Top = 24
  Width = 128
  Height = 128
  {$IFDEF DESIGNTIME}
  Picture.Data = {
    09544269746D6170000000000000000000000000000000000000000000000000
    ... 图片二进制数据 ...
  }
  {$ENDIF}
end

3. 切换回可视化模式，设计时图片正常显示；编译时（默认未定义DESIGNTIME宏），图片数据会被编译器忽略，不会进入EXE
4. 若临时需要在编译时保留图片，可在Project Options → Delphi Compiler → Conditional defines中添加DESIGNTIME宏

方法2：自定义设计时专用TImage控件 #

编写一个继承自TImage的控件，自动在设计时加载图片、运行时清空：

unit DesignTimeImage;

interface

uses
  Vcl.ExtCtrls, System.Classes, Vcl.Graphics;

type
  TDesignTimeImage = class(TImage)
  private
    FDesignPicPath: string;
    procedure SetDesignPicPath(const Value: string);
  protected
    procedure Loaded; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property DesignPicturePath: string read FDesignPicPath write SetDesignPicPath;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Custom Controls', [TDesignTimeImage]);
end;

{ TDesignTimeImage }

constructor TDesignTimeImage.Create(AOwner: TComponent);
begin
  inherited;
  if csDesigning in ComponentState then
    if FDesignPicPath <> '' then
      Picture.LoadFromFile(FDesignPicPath);
end;

procedure TDesignTimeImage.Loaded;
begin
  inherited;
  if not (csDesigning in ComponentState) then
    Picture.Clear; // 运行时自动清空，避免图片编译进EXE
end;

procedure TDesignTimeImage.SetDesignPicPath(const Value: string);
begin
  FDesignPicPath := Value;
  if csDesigning in ComponentState then
    Picture.LoadFromFile(Value);
end;

end.

• 安装这个控件后，在设计时通过DesignPicturePath指定本地图片路径，控件会自动加载显示
• 运行时控件会自动清空Picture，DFM中仅保存路径字符串，不会包含图片二进制数据

方法3：利用Delphi 10.4+的Local Resource功能 #

Delphi 10.4及以上版本提供了本地资源功能，无需修改代码即可实现需求：

1. 在项目管理器中右键项目 → Add → Existing Item，选择要使用的图片文件
2. 选中添加的图片文件，在属性面板中将Resource Type设置为Local Resource
3. 在TImage的Picture属性编辑器中，选择这个本地资源，设计时正常显示
4. 编译时本地资源不会被打包进EXE，运行时你只需通过代码从本地路径加载对应图片即可

内容的提问来源于stack exchange，提问作者lyborko