Главная страница
    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.045 c
3-1182872569
Ilg
2007-06-26 19:42
2007.11.04
Русские буквы в текстовой БД


11-1175198781
ElectriC
2007-03-30 00:06
2007.11.04
a-la KeyPreview


15-1191430223
Delphi User
2007-10-03 20:50
2007.11.04
EFS


2-1192078111
zzzz
2007-10-11 08:48
2007.11.04
Переместить в конец курсор


2-1192094348
Tonich
2007-10-11 13:19
2007.11.04
быстрый поиск в структуре (record)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский