Primer je (već) stavljen uz poruku:
Citat:
priki:
Code:
TTestPivotTable=class(TPivotTable)
sa nekim metodama i funkcijama
end;
TTestPivotTable je komponenta. U naslovu teme piše Com objekat ali u svemu ostalom u tekstu govori da se traži smeštanje nove komponente na formu. To bi onda moralo da može da se pročita u tutorial-u na ES-u:
Tutorijal...
Ovaj link sam pronašao pretragom za: RegisterComponents
Pretpostavljam da u tom tutorilaju piše sve što nije jasno od detalja. Da bi preskočio par iteracija oko toga da li se traži ili ne ovo što sam napisao konkretno:
Napravio ovako komponentu, probao i radi (umesto "OWC11_TLB" i "Toma" treba staviti šta više odgovara, a za neki detalj pogledati gore navedeni tutorijal):
Code:
unit TTestPivotTableJ;
interface
uses
Windows, SysUtils, Classes, Controls, OleCtrls, OWC11_TLB, ActiveX, Forms, ComObj;
type
TTestPivotTable = class;
TTestPivotTable = class(TPivotTable)
private
protected
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
published
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Toma', [TTestPivotTable]);
end;
{TTestPivotTable}
constructor TTestPivotTable.Create(AOwner: TComponent);
begin
inherited Create (AOwner);
end;
destructor TTestPivotTable.Destroy;
begin
inherited;
end;
end.
Da dodam da je ovo primer, to znači da je na brzinu pravljen i da možda ima nekog viška ili mu nešto manjka ali se na formu stavlja bez problema. Inače sam ovako dograđivao TWebBrowser komponentu sa dodatkom uključivanja ili isključivanja ActiveX, java skripta ili učitavnja slikica iz samog programa... radi (godinama :)) bez problema...
nasledjivanje iz COM objekata
