property Tbitmap

[Wormid]

Meine Idee zu dem Thema:

Delphi-Quellcode:

type TTest = class(TObject)
  private
    FImage: TBitmap;
  protected
    procedure BitmapChanged(Sender: TObject);
    procedure SetImage(const ABitmap: TBitmap);
  public
    constructor Create;
    destructor Destroy; override;
    property Image: TBitmap read FImage write SetImage;
  end;

var
  Form1: TForm1;
  Test: TTest;

implementation

{$R *.dfm}

constructor TTest.Create;
begin
  inherited Create;
  FImage := TBitmap.Create;
  FImage.OnChange := BitmapChanged;
end;

destructor TTest.Destroy;
begin
  FreeAndNil(FImage);
  inherited Destroy;
end;

procedure TTest.BitmapChanged(Sender: TObject);
begin
  ShowMessage('ausgelöst');
end;

procedure TTest.SetImage(const ABitmap: TBitmap);
begin
  FImage.Assign(ABitmap);
  ShowMessage('ausgelöst');
end;

Damit bekommt man dann mit, ob sich was an FImage geändert hat. Ne andere Idee hätte ich sonst auch erstmal nicht.

Gruß

Wormid