Urgent: Retrieve a control in runtime application

Can some one help me to do this:

I had dinamically created several component (CheckBox) during the runtime. So, i need to check the "Checked" property of the checkboxes after a buttonclick, but i can't get the component by code.



My Code:
//Form1
var
i: integer;


Begin
i =0;

//this code repeat several times
With TCheckBox.Create(Self) do
begin
   Name := 'chk_' + IntToStr(i+1);
   ...
end;

  // I try to do it this way...

procedure TForm1.btnClick(Sender: TObject);
var
  ctrls, i : Integer;
  CtrlName : string;
begin

  ctrls_No := 1;

  for ctrls := 0 to Form1.ControlCount-1 do
  begin
      CtrlName := Form1.Controls[ctrls].ClassName  ;
      if CtrlName = 'TCheckBox' then begin
       {
         How can I set the "ctrls".Checked = True to this
         control?

         normal:if chk_1.Checked then begin ..do something
         Current situation: How??
       }
      end;
  end;
...



I plan to use some codes like in the VB:
foreach ctrl in ctrls
   if ctrl.checked = true then
      //...do someting
   end if
end if
cekcoolAsked:
Who is Participating?
 
swift99Connect With a Mentor Commented:
Just a couple of subtle things to keep in mind - VB controls are all ActiveX.  Delphi controls are not necessarily (very rarely) ActiveX, so you may have to explicitly cast them

Note that I am using the "is" operator instead of using the control ClassName property.  Apart from performance issues (quick pointer comparisions versus string operations), this ensures that you can use any descendents of the TCheckbox with full transparency.

var
  aCtrl: TObject;

// To set all checkboxes Checked = true

for ctrls := 0 to Form1.ControlCount-1 do
begin
  aCtrl := Form1.Controls[ctrls];
  if aCtrl is TCheckBox then begin
    (aCtrl as TCheckbox).Checked := true;
  end;
end;

// To review the checkboxes
for ctrls := 0 to Form1.ControlCount-1 do
begin
  aCtrl := Form1.Controls[ctrls];
  if aCtrl is TCheckBox then begin
    case (aCtrl as TCheckbox).Checked of
    true: ; // do something
    false:; // do something else
    end;
  end;
end;

0
 
nestoruaCommented:
HI, cekcool,
procedure ShowAllCheckedCheckBoxesOnTheForm;
var SL: TStringList;
     i: integer;
begin
  SL:=TStringList.Create;
   try
    for i:=0 to ComponentCount-1 do
     if Components[i] is TCheckBox
      then
        with (Components[i] as TCheckBox) do
         if Checked
          then SL.Add(Name);
//
     ShowMessage('Checked are: '+#13+SL.Text);    
   finally
    SL.Free;  
   end;
end;
It is almost the same as proposed Swift99 but if you have one of your CheckBoxes on the Panel lying on the Form
it will not be caught by the Controls.

Sincerely,
Nestorua.
0
 
kretzschmarCommented:
another way

for i := 0 to componentcount - 1 do
  if components[i] is tcheckbox then
    if tcheckbox(components[i]).name = 'chk_1' then
      tcheckbox(components[i]).checked := true;

another way
var comp : TComponent; //or tobject
begin
 comp := findcomponent('chk_1');
 if comp <> nil then
   if (comp is tcheckbox) then
     tcheckbox(comp).checked := true;
end;

meikl ;-)

0
 
Slick812Commented:
hello cekcool, if I create a number of VCL components at run time, I usually use an Array of that component, TBitmap, TCheckBox, TButton, ect. That way I can make as many as needed AND not have to name them to keep track of them.


private
    { Private declarations }
    CBArray: Array of TCheckBox;
    CBNum: Cardinal;

procedure TForm1.FormCreate(Sender: TObject);
begin
CBNum := 0;
end;

procedure TForm1.sbut_AddCheckBClick(Sender: TObject);
begin
Inc(CBNum);
SetLength(CBArray,CBNum);
CBArray[CBNum-1] := TCheckBox.Create(Self);
CBArray[CBNum-1].Parent := Self;
CBArray[CBNum-1].Caption := 'Check Box'+IntToStr(High(CBArray));
CBArray[CBNum-1].Left := 144;
CBArray[CBNum-1].Top := 6+ (High(CBArray)*(CBArray[CBNum-1].Height+3));
end;

procedure TForm1.sbut_IsCheckedClick(Sender: TObject);
var
i:Integer;
begin
if CBNum > 0 then
  begin
  if CBArray[0].Checked then
  ShowMessage('CheckBox0 is checked');
  for i := 0 to High(CBArray) do
  CBArray[i].Checked := not CBArray[i].Checked
  end;
end;

Hope this Helps, let me know
0
 
cekcoolAuthor Commented:
It does what i want. Thanks. I think may be other answer are also acceptable, but this is the best way to do it right.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.