TCheckBox

← →
Chaval' (2007-03-21 17:27) [0]

Помогите создать несколько CheckBox один под одним по нажатии на кнопку
И чтобы по нажатии на один из CheckBox выводилось сообщение с номером этого CheckBox.

← →
Desdechado © (2007-03-21 17:36) [1]

a: array of TCheckBox; for i := 1 to 10 do begin a[i]:=TCheckBox.Create(Self); a[i].Tag:=i; a[i].OnClick := CheckBoxClick; end; procedure TForm1.CheckBoxClick(...) begin ShowMessage(IntToStr((sender AS TCheckBox).Tag)); end;

← →
Chaval' (2007-03-21 17:40) [2]

Спасибо :)

← →
Johnmen © (2007-03-21 17:40) [3]

> Desdechado © (21.03.07 17:36) [1]

Ща начнётся.... "А сам-то свой код проверял?", "А почему у меня AV?" и т.д. и т.п.

← →
Desdechado © (2007-03-21 17:49) [4]

Это ж не код, это мозаика.

← →
Leonid Troyanovsky © (2007-03-21 17:54) [5]

> Desdechado © (21.03.07 17:49) [4]

> Это ж не код, это мозаика.

Видим, что не Песталоцци.

--
Regards, LVT.

← →
Johnmen © (2007-03-21 17:57) [6]

Это ты перед автором оправдываться будешь, что у тебя какая-то зайка по имени мо....
:)))

← →
Leonid Troyanovsky © (2007-03-21 18:02) [7]

> Chaval" (21.03.07 17:40) [2]

> Спасибо :)

Сухое спасибо горло дерет.
Читай лучше про TRadioGroup.

--
Regards, LVT.

← →
Desdechado © (2007-03-21 18:23) [8]

> Читай лучше про TRadioGroup.
Лучше про TCheckListBox.

> Desdechado © (21.03.07 18:23) [8]

> > Читай лучше про TRadioGroup.
> Лучше про TCheckListBox.

Не Песталоцци ты :)

Нельзя ж снижать воспитательный эффект, подвергая
сомнению значимость высказываний воспитующего.

Т.е., правильно так: "А также про..".

--
Regards, LVT.

← →
RASkov (2007-03-21 18:36) [10]

> один под одним

a[i].Top:=a[i].height*i;
a[i].parent:=<WinControl>;

> RASkov (21.03.07 18:36) [10]

> a[i].Top:=a[i].height*i;

Дык, не только оное, иначе б мы не стали
снижать значимость высказываний обучающего.

--
Regards, LVT.

> Johnmen © (21.03.07 17:40) [3]

Угу. Прям наглядная иллюстрация к ветке http://delphimaster.net/view/15-1174476821/
:)

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