| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

х [D6]

mazepa ©   (2002-11-27 20:22:00) 

Как создать X ЧекБоксов и как их потом проверять ?

---

mazepa   (2002-11-27 21:31:00) [1]

TTCustomDelphiMaster СПАСИБО ДРУГ !!!

---

TTCustomDelphiMaster   (2002-11-27 21:25:00) [2]

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
if Sender is TCheckBox then
ShowMessage("CheckBox " + TCheckBox(Sender).Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to 9 do
with TCheckBox.Create(Self) do
begin
Caption := "CheckBox" + IntToStr(i);
Parent := Self;
Top := i * 25 + 10;
Left := 20;
OnClick := CheckBoxClick;
end;
end;

---

LongIsland   (2002-11-27 21:04:00) [3]

Вообще, лучше всего в разделе public для формы.

---

mazepa   (2002-11-27 20:56:00) [4]

var of что ???

---

LongIsland   (2002-11-27 20:47:00) [5]

var

---

mazepa   (2002-11-27 20:38:00) [6]

а где мне этот CheckBox прописать чтоб он его нашел ???

---

LongIsland   (2002-11-27 20:28:00) [7]

for i:=0 to x do
begin
CheckBox.Create(Form1);
CheckBox.Parent:=Form1;
CheckBox.Name:="CheckBox"+IntToStr(i+1);
end;

for i:=0 to Form1.ComponentCount-1 do
if Components[i] is TCheckBox then
if TCheckBox(Components[i]).Checked then
tag:=tag+1;
Button1.Caption:=IntToStr(tag);

Например, так

---

Наверх