如何覆盖从对象检查器加载 TImage（在运行时）？

Question

为顶帖致歉。这困扰了我多年，现在我真的需要知道答案。我放了 150 点赏金以吸引兴趣，但可能会增加正确答案。

这是我需要的：

我使用来自TMS Scripter Pro 的TMS obejct inpsctor 允许用户在运行时设计表单。您可以假设它源自标准的 Delphi Object Inspector，并添加了一些功能，但其中 90% 只是调用继承的方法。

当我单击 TImage 的 Picture 属性旁边的省略号时，它会调用一个继承的方法 - 我不知道是哪个 - 允许我加载图片。完成后，我不知道图像是从哪个文件加载的，我想将其以相同的名称保存在不同的目录中。

• 我可以提示用户输入文件名，但这让他看起来很困惑，而且很草率。
• 我可以找到一个 TImage / TPicture 后代，它存储文件名并允许我查询它。任何能指出此类 FOSS 组件的人都会获得奖励。
• 我可以从 TPicture 和/或 TImage 派生并自己编写代码，但不确定要更改什么。任何能准确告诉我如何编码的人都会得到赏金。确切地说，我的意思是命名类和方法。

提前感谢您的帮助。这个真的让我很烦。

---

对于my previous question，尽管获得了赏金，但没有得到有用的答案，我将尝试重新表述这个问题。

基本上，当用户在对象检查器中单击省略号时，Delphi 会打开一个文件/打开对话框。我想用我自己的替换这个处理，这样我就可以保存图像的路径。

我原以为我需要做的就是从 TImage 派生一个类并覆盖 Assign() 函数，如下面的代码所示。但是，当我这样做时，永远不会调用分配函数。所以，看起来我需要覆盖其他东西，但是什么？

unit my_Image;


interface

uses
  Classes, ExtCtrls, Jpeg, Graphics;

type
  Tmy_Image = class(Timage)
    private
      FPicture : TPicture;

    protected
      procedure OnChange(Sender: TObject);

    public { Public declarations }
      Constructor Create(AOwner: TComponent); override;  
      procedure   SetPicture(picture : TPicture); 
      procedure   Assign(Source: TPersistent); override;

    published  { Published declarations - available in the Object Inspector at design-time }
      property Picture : TPicture read FPicture write SetPicture;
  end;  // of class Tmy_Image()

  procedure Register;

implementation

uses Controls, Dialogs;

  procedure Register;
  begin
    RegisterComponents('Standard', [Tmy_Image]);
  end;

  Constructor Tmy_Image.Create(AOwner: TComponent);
  begin
    inherited;  // Call the parent Create method
    Hint := 'Add an image from a file|Add an image from a file'; // Tooltip | status bar text
    AutoSize := True;  // Control resizes when contents change (new image is loaded)
    Height := 104;
    Width  := 104;
    FPicture := TPicture.Create();
    self.Picture.Bitmap.LoadFromResourceName(hInstance, 'picture_poperty_bmp');
  end;

  procedure Tmy_Image.OnChange(Sender: TObject);
  begin
    Constraints.MaxHeight := Picture.Height;
    Constraints.MaxWidth  := Picture.Width;
    Self.Height := Picture.Height;
    Self.Width  := Picture.Width;
  end;

  procedure   Tmy_Image.SetPicture(picture : TPicture);
  begin
    MessageDlg('Tmy_Image.SetPicture', mtWarning, [mbOK], 0);   // never called
  end;


  procedure Tmy_Image.Assign(Source: TPersistent);
  begin
    MessageDlg('Tmy_Image.Assign', mtWarning, [mbOK], 0);   // never called
  end;

end.

Answer 1

看看这是否有效：

  [...]

  procedure Tmy_Image.PictureChange(Sender: TObject);
  begin
    ShowMessage('Should work');
  end;

  [...]

  constructor Tmy_Image.Create(AOwner: TComponent);
  begin
    inherited;  // Call the parent Create method
    Hint := 'Add an image from a file|Add an image from a file'; // Tooltip | status bar text
    AutoSize := True;  // Control resizes when contents change (new image is loaded)
    Height := 104;
    Width  := 104;
    FPicture := TPicture.Create();
    FPicture.OnChange := PictureChange; /// <<<<
    self.Picture.Bitmap.LoadFromResourceName(hInstance, 'picture_poperty_bmp');
  end;

  [...]

上帝保佑你！

Answer 2

好的，我破解了 TMS 代码。这似乎是唯一的方法。