TShape = class(TShape) public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; Shape: TShape; i: Integer; implementation {$R *.dfm} constructor TShape.Create(AOwner: TComponent); begin inherited; Name:= 'Shape'+IntToStr(i); Tag:= 1; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question