[Lazarus] How do I Show Dynamically Created Visual Components?
Dennis M. Linton
dennis at dmlinton.net
Fri Jan 15 20:34:58 CET 2010
Thanks, IK and also to Andew Brunner who also replied.
For some reason, I was thinking that the TEdit.Create(Form1) established
Form1 as parent. Anyhow, I set the parent and life is good again. Many
thanks.
Best regards,
Dennis
On Fri, 2010-01-15 at 21:22 +0200, ik wrote:
> What about adding position of left and top and also Form1 as parent ?
>
> with TEdit.Create(Form1) do begin
> Visible:=True;
> Enabled:=True;
> Name:='TestEdit"+IntToStr(i);
> ///////////////////////////////
> Left := 50;
> top := 100;
> Parent := Form1;
> ////////////////////////////////
> Show; //tried this in desperation but no success.
> Form1.Refresh //this did not produce a visible new
> component either.
> end;
>
>
> http://ik.homelinux.org/
>
>
>
> 2010/1/15 Dennis M. Linton <dennis at dmlinton.net>
>
> I am having trouble figuring out how to show visual components
> created programmatically. I seem to be able to, for example,
> do this:
>
> An integer, i, is declared in the public section.
>
> with TEdit.Create(Form1) do begin
> Visible:=True;
> ` Enabled:=True;
> Name:='TestEdit"+IntToStr(i);
> Show; //tried this in desperation but no success.
> Form1.Refresh //this did not produce a visible new
> component either.
> end;
>
> The edit box seems to be created as Form1.ComponentCount
> increases and the Name generated is shown in another edit box.
>
> My problem is that I cannot get the new edit box to be visible
> (I even had code to ensure that .Top and .Left were such that
> the new component would be located within the Form1
> coordinates. Can anyone tell me what I am doing wrong.
>
> Thanks in advance.
>
> Best regards,
> Dennis
>
>
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
>
>
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
Dennis M. Linton, P.Eng.
Tel: +1 (613) 473-1015
Cell: +1 (705) 312-1336
SMS: +1 (613) 922-2838
Skype: thedmlinton
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20100115/539be6b7/attachment-0004.html>
More information about the Lazarus
mailing list