Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TCheckBox

Chaval' © (2007-03-21 17:27:00)
Помогите создать несколько CheckBoxодин под одним по нажатии на кнопку
И чтобы по нажатии на один из CheckBoxвыводилось сообщение с номером этого CheckBox.

Германн (2007-03-21 18:50:00) [1]

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

Угу. Прям наглядная иллюстрация к ветке http://delphimaster.ru/cgi-bin/forum.pl?id=1174476821&n=3
:)

Leonid Troyanovsky (2007-03-21 18:45:00) [2]

> RASkov (21.03.07 18:36) [10]

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

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

--
Regards, LVT.

RASkov (2007-03-21 18:36:00) [3]
> один под одним

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

Leonid Troyanovsky (2007-03-21 18:33:00) [4]

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

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

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

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

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

--
Regards, LVT.

Desdechado (2007-03-21 18:23:00) [5]
> Читай лучше про TRadioGroup.
Лучше про TCheckListBox.

Leonid Troyanovsky (2007-03-21 18:02:00) [6]

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

> Спасибо :)

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

--
Regards, LVT.

Johnmen (2007-03-21 17:57:00) [7]
Это ты перед автором оправдываться будешь, что у тебя какая-то зайка по имени мо....
:)))

Leonid Troyanovsky (2007-03-21 17:54:00) [8]

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

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

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

--
Regards, LVT.

Desdechado (2007-03-21 17:49:00) [9]
Это ж не код, это мозаика.

Chaval' (2007-03-21 17:40:00) [10]
Спасибо :)

Johnmen (2007-03-21 17:40:00) [11]

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

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

Desdechado (2007-03-21 17:36:00) [12]
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;

Наверх

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