Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

х   Найти похожие ветки 

← →
mazepa   (2002-11-27 20:22) [0]

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

---

← →
LongIsland   (2002-11-27 20:28) [1]

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);

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

---

← →
mazepa   (2002-11-27 20:38) [2]

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

---

← →
LongIsland   (2002-11-27 20:47) [3]

var

---

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

var of что ???

---

← →
LongIsland   (2002-11-27 21:04) [5]

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

---

← →
TTCustomDelphiMaster   (2002-11-27 21:25) [6]

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;

---

← →
mazepa   (2002-11-27 21:31) [7]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c