![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
функция определения выбранного item-a [D7, XP]
tytus © (2007-10-11 16:04:00)Доброго дня всем. Вот забыл как обзывается сия ф-я... А суть вот в чем.
Имеется GroupBox, а в нем несколько CheckBox-ов. Так вот, данная ф-я определяет какой из чекбоксов установлен, и возвращает его номер.
tytus (2007-10-11 16:23:00) [1]>DVM © (11.10.07 16:14) [4]
-))))))))))))))))
огроменное спаисбо всем, но.... увы и ах! все не то.
ф-я - стандартная.... вот роюсь в инете и не нахожу, решил спросить у ВАС, но... все не то...
Сия ф-я выгодна есче и тем, что для любого чекбокса можно прикрутить одну и ту-же про-ру обработки OnClick, а в ней в зависимости от результата этой ф-ии и рулить куда надо!
Но ничего, нарою - обезательно напишу!
See ya!
Leonid Troyanovsky (2007-10-11 16:19:00) [2]
> Palladin © (11.10.07 16:15) [5]
> Нет такой функции... хотя...
Тогда лучше TCheckListBox взять.
--
Regards, LVT.
AIK (2007-10-11 16:16:00) [3]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));
Palladin (2007-10-11 16:15:00) [4]Нет такой функции... хотя...
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;
DVM (2007-10-11 16:14:00) [5]
> tytus
Ты с TRadioGroup перепутал, там действительно есть TRadioGroup.ItemIndex
clickmaker (2007-10-11 16:13:00) [6]функция API?
с RadioGroup не путаешь?
tytus (2007-10-11 16:10:00) [7]>Palladin © (11.10.07 16:07) [1]
да непомню ! Вопрос ведь не в том что ф-я возвратит, а как онная называется!?
Palladin (2007-10-11 16:07:00) [8]а если несколько установлено, то какой номер она должна возвращать?