🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: new components

#17
From: CubuD
Date: Sat, 22 Apr 2000 00:00
32 lines
1763 bytes
public
    MyShape : TMyShape
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
  MyShape := TShape.Create(Self);
  MyShape.Parent := Self;
  MyShape.SetBounds(0,0,32,32);
end;

procedure TForm1.FormDestroy(Sender : TObject);
begin
  MyShape.Free;
end;



--
petelyn@cableinet.co.uk
"Les Johnston" <laj@ozemail.com.au> wrote in message
news:39013F4E.50187E1F@ozemail.com.au...
> Hi!
>
> As a new user of D5, I am very interested to know how to create new
> components whilst a program is running, eg I would like to create new
> shapes as the program need arises.
>
> Ta
>
> Les
>
Technical Details
Message-ID: <iTjM4.4725$VR6.443584@news3.cableinet.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <39013F4E.50187E1F@ozemail.com.au>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fd817,a9a323c50b3bc822
X-Google-Attributes: gidfd817,public
X-Google-Thread: 112b07,a9a323c50b3bc822
X-Google-Attributes: gid112b07,public
X-Google-Thread: 1043cf,a9a323c50b3bc822
X-Google-Attributes: gid1043cf,public
X-Google-Thread: fe2ce,a9a323c50b3bc822
X-Google-Attributes: gidfe2ce,public
From: "CubuD" <MrPMorris@Nospam.Hotmail.com>
Subject: Re: new components
Date: 2000/04/22
Message-ID: <iTjM4.4725$VR6.443584@news3.cableinet.net>
X-Deja-AN: 614333519
References: <39013F4E.50187E1F@ozemail.com.au>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
X-Complaints-To: abuse@cableinet.net
X-Trace: news3.cableinet.net 956418638 213.48.166.40 (Sat, 22 Apr 2000 16:50:38 BST)
Organization: Cable Internet (post doesn't reflect views of Cable Internet)
X-MSMail-Priority: Normal
NNTP-Posting-Date: Sat, 22 Apr 2000 16:50:38 BST
Newsgroups: comp.lang.pascal.delphi.components.writing,alt.comp.lang.borland-delphi,borland.public.delphi.objectpascal,borland.public.delphi.vcl.components.writing,comp.lang.pascal.delphi.components.writing