🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.delphi.components.writing
Article #31

creating components within components

#31
From: Greg Lubel
Date: Thu, 08 Oct 1998 00:00
17 lines
1496 bytes
I want to create a TCustomControl (a coloured circle) with a caption and
an image area. (Delphi 3 Pro)

I have created the TCustomControl and I've tried adding a create
'CaptionLabel:Tlabel', firstly in the create method and then in the
paint method of my CustomControl. I have managed to compile both these
attempts but neither render the label when I instantiate a CustomControl
at run time. Firstly, is this the correct way to approach this? If it
is, what do I use as 'parent' for the CaptionLabel. Will the same
solution apply to an 'IconImage:TBitmap' or any other embellishments? If
possible I'd really appreciate a small but fully worked example or if
not, then the key points.

Thanks,


Greg
Technical Details
Message-ID: <361CAD6C.BC9D4681@uk.ibm.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10baee,f2b6d00efe3f36de,start
X-Google-Attributes: gid10baee,public
X-Google-Thread: 112b07,f2b6d00efe3f36de,start
X-Google-Attributes: gid112b07,public
X-Google-Thread: fe2ce,f2b6d00efe3f36de,start
X-Google-Attributes: gidfe2ce,public
From: Greg Lubel <"<NOSPAM>greg_lubel"@uk.ibm.com>
Subject: creating components within components
Date: 1998/10/08
Message-ID: <361CAD6C.BC9D4681@uk.ibm.com>
X-Deja-AN: 398974139
Content-Transfer-Encoding: 7bit
X-Accept-Language: en-GB
Content-Type: text/plain; charset=us-ascii
Organization: Unspecified Organisation
Mime-Version: 1.0
Newsgroups: comp.lang.pascal.delphi.components.writing,comp.lang.pascal.delphi.misc,borland.public.delphi.vcl.components.writing