Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.048 c
2-1191985954
O.O
2007-10-10 07:12
2007.11.04
Запуск программ


2-1192082670
Jimmy
2007-10-11 10:04
2007.11.04
Размер оперативной памяти


2-1192034694
asm_viator
2007-10-10 20:44
2007.11.04
TPageControl, TPanel...


2-1192367636
WooW
2007-10-14 17:13
2007.11.04
RemoveDir


2-1192012212
foreverDelphi
2007-10-10 14:30
2007.11.04
запретить меню в компонентов типа Edit, Memo, ComboBox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский