[Komp. Entwicklung] onResize bei abgeleiteter TImage K.

[sakura]

Die Lösung finde ich persönlich nicht gelungen. Eher solch einen Ansatz:

Delphi-Quellcode:

type
  TImage1 = class(TImage)
  private
  protected
    procedure Resize; override;
  public
  published
  end;

{...}

procedure TImage1.Resize;
begin
  inherited Resize;
  // Dein Code fürs Resize
end;

......