[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