Re: [fpc-pascal] How do I add a TComponent to TPanel dynamically?

[Stephano]

Danie wrote:

 Constructor TControlVolume.Create( Sender:TComponent );
 begin
   Inherited Create(Sender);
   fCVShape.Create( Sender );
 end;

Destructor TControlVolume.Destroy;

 begin
   fCVShape.Destroy;
   Inherited Destroy ;
 end;

fCVShape.Create(Sender) -> fCVShape := TShape.Create(Sender)
fCVShape.Destroy -> fCVShape.Free
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal