Re: Help - What is this code used for ?


Thanks Bruce,
I understand :
> By the looks of things the code is used to enable / disable a group of
> controls on the main form.

but i am not clever enough to see if there is a bug...;-(

Cheers,
Eddy.



"Bruce Roberts" <dontsendtober@xxxxxxxxxxxxxxxxxxxx> wrote in message
news:2xHif.1350$Et5.90799@xxxxxxxxxxxxxxxxxxxxxxxx
>
>
> "Eddy Fontaine" <someone@xxxxxxxxxxxx> wrote in message
> news:438b3d2d$0$10963$ba620e4c@xxxxxxxxxxxxxxxxx
> >I found this code in the INDY 9 basic TCPClient demo, and i have no idea
> > what it is used for...
>
> > procedure TfrmMain.LockControls(ALock: Boolean);
> > var
> > i : integer;
> > begin
> > for i := 0 to componentcount-1 do
> > if TControl(Components[i]).Tag = 99 then
> > TControl(Components[i]).Enabled := ALock;
> > end;
>
> The code has a bug, at least IMO. tForm.Components has an entry type of
> tComponent, not tControl. It is possible to have a non tControl component
> on a form. The reason that the code doesn't fail is that Tag is declared
in
> tComponent and I presume that the author has only set the Tag of
components
> of type tControl to 99. However the code would have been tighter if it
were
> written
>
> if Components [i].Tag = 99
> then begin
> Assert (Components [i] is tControl);
> tControl (Components [i]).Enabled := aLock;
> end;
>
> or
>
> if (Components [i].Tag = 99) and (Components [i] is tControl)
> then tControl (Components [i]).Enabled := aLock;
>
> By the looks of things the code is used to enable / disable a group of
> controls on the main form.
>
>
>



.

Relevant Pages

  • Re: Help - What is this code used for ?
    ... It is possible to have a non tControl component ... tComponent and I presume that the author has only set the Tag of components ...
    (comp.lang.pascal.delphi.misc)
  • Re: Setting color of table cell based on list selection
    ... That's why there are no members of the FormFields collection. ... Either you can replace those content controls with dropdown formfields from the ... You can't refer to a content control directly by its tag the way you could refer ... Sub ColorRiskCell() ...
    (microsoft.public.word.docmanagement)
  • Re: SuspendLayout Not Suspending...
    ... Then I add 81 "tags" to the controls collection of the panel ... I have a panel on a form that is being populated with 81 of the tag ... Microsoft Online Community Support ... where an initial response from the community or a Microsoft Support ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: Assigning more than one tag to tag property
    ... so by parsing out multiple tag properties the code ... controls with a tag property of "carryover". ... Dim rst As DAO.Recordset ... Dim ctl As Control ...
    (microsoft.public.access.forms)
  • Re: prevent runat="server"
    ... I don't think there is any way that you can easily get away from including the runat="server" attribute value pair since it is exactly what the server uses to identify sever side nodes. ... The asp:ListItem can probably get away without it since it is a child of an asp:DropDownList tag that already has a runat="server attribute/value pair. ... I would not recommend going to the effort of using it unless it is a control that is used ONLY between the opening/closing tags of one of your other controls. ... way I can specify this in my code, so that the designer using my controls doesn't have to specify this for each custom control tag? ...
    (microsoft.public.dotnet.framework.aspnet.webcontrols)