TImage auf Button setzen?

[ninja]

Zitat von Gandalfus:

Delphi-Quellcode:

TneuerButton = class(TButton)
  public
    procedure paint; override;

end;

implementation

procedure TneuerButton .paint;
begin
  inherited;
  ......
  Gif zeichen
end;

hallo,
ich habe probleme diesen code zuverstehen, gibt es dazu auch ein anwendungbeispiel?
ninja