Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Внизфункция определения выбранного item-a Найти похожие ветки
← →
tytus (2007-10-11 16:04) [0]Доброго дня всем. Вот забыл как обзывается сия ф-я... А суть вот в чем.
Имеется GroupBox, а в нем несколько CheckBox-ов. Так вот, данная ф-я определяет какой из чекбоксов установлен, и возвращает его номер.
← →
Palladin © (2007-10-11 16:07) [1]а если несколько установлено, то какой номер она должна возвращать?
← →
tytus (2007-10-11 16:10) [2]>Palladin © (11.10.07 16:07) [1]
да непомню ! Вопрос ведь не в том что ф-я возвратит, а как онная называется!?
← →
clickmaker © (2007-10-11 16:13) [3]функция API?
с RadioGroup не путаешь?
← →
DVM © (2007-10-11 16:14) [4]
> tytus
Ты с TRadioGroup перепутал, там действительно есть TRadioGroup.ItemIndex
← →
Palladin © (2007-10-11 16:15) [5]Нет такой функции... хотя...
Function GetChecked(g:TGroupBox):String;
Var
i:Integer;
Begin
Result:="";
For i:=0 to g.ControlCount-1 Do
If (g.Controls[i] is TCheckBox) Then
If TCheckBox(g.Controls[i]).Checked Then Result:=Result+IntToStr(i)+",";
If Result<>"" Then SetLength(Result,Length(Result)-1);
End;
← →
AIK © (2007-10-11 16:16) [6]Var i,X:integer;
begin
Memo1.Clear;
X:=3; // Количество CheckBox-ов для примера взял 3
For i:=1 to x do
if (FindComponent("CheckBox"+inttostr(i))as TCheckBox).Checked=true then
Memo1.Lines.Add("CheckBox"+inttostr(i));
← →
Leonid Troyanovsky © (2007-10-11 16:19) [7]
> Palladin © (11.10.07 16:15) [5]
> Нет такой функции... хотя...
Тогда лучше TCheckListBox взять.
--
Regards, LVT.
← →
tytus (2007-10-11 16:23) [8]>DVM © (11.10.07 16:14) [4]
-))))))))))))))))
огроменное спаисбо всем, но.... увы и ах! все не то.
ф-я - стандартная.... вот роюсь в инете и не нахожу, решил спросить у ВАС, но... все не то...
Сия ф-я выгодна есче и тем, что для любого чекбокса можно прикрутить одну и ту-же про-ру обработки OnClick, а в ней в зависимости от результата этой ф-ии и рулить куда надо!
Но ничего, нарою - обезательно напишу!
See ya!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.045 c