PDA

View Full Version : کنترلها



mostafa612003
سه شنبه 13 خرداد 1382, 11:07 صبح
سلام
راهی وجو دارد که با کنترلهای هم نوع مثل یک آرایه عمل کرد و برای چک کردن آنها از حلقه for استفاده نمود؟

متشکرم

مهدی کرامتی
سه شنبه 13 خرداد 1382, 13:01 عصر
1- لطفا تیتر تاپیک تون رو اینقدر خلاصه ننویسید.
2- هدفتون از انجام اینکار چیست؟ سوالتون زیاد واضح نیست.

mostafa612003
سه شنبه 13 خرداد 1382, 13:51 عصر
سلام
من چند تا کنترل checkbox دارم
که می خواهم با یک حلقه for مشخص کنم که کدام از آنها انتخاب شده اند
متشکرم

مهدی کرامتی
سه شنبه 13 خرداد 1382, 14:17 عصر
این کد را بدقت مطالعه کنید:


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
ListBox1.Items.Clear;

for i := 0 to ComponentCount - 1 do
begin
if (COMPONENTS[i] is TCheckBox) and
(TCheckBox(COMPONENTS[i]).Checked = True)
then
listbox1.items.add(TCheckBox(COMPONENTS[i]).Name);
end;
end;