Topic: Example Create CheckListBox ,Listview In Form

Project For Shared Everybody MVD Community
- CheckListBox
- ListView

Example Screen Shot
https://s1.postimg.org/wdnopz9xb/2017-08-04_15_53_45.png


OpenCode

Post's attachments

Attachment icon CheckListBoxListView.zip 615.09 kb, 187 downloads since 2017-08-04 

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: Example Create CheckListBox ,Listview In Form

Inside Listview Update
- Listview Style
- Combine TImageList
- CheckBox All And Uncheckbox All

https://s2.postimg.org/ug3e0pg5h/2017-08-04_22_01_01.png

https://s2.postimg.org/bca2kd3b9/2017-08-04_22_01_11.png

https://s2.postimg.org/49791v479/2017-08-04_22_01_18.png

https://s2.postimg.org/d5i15suth/2017-08-04_22_01_25.png

https://s2.postimg.org/ch96muw3p/2017-08-04_22_02_04.png

OpenCode

Post's attachments

Attachment icon ListViewInside.zip 155.39 kb, 205 downloads since 2017-08-04 

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: Example Create CheckListBox ,Listview In Form

Thank you for your examples!

Dmitry.

Re: Example Create CheckListBox ,Listview In Form

Здравствуйте! Интересует управление обьектом

checklistbox := TChecklistbox.Create(Form1);
checklistbox.Parent := Form1.Panel1;
checklistbox.Imename := '11111' ;

Обьект создается, список заполняется. Но:
1. Не получается обратиться к компоненту по имени.
2. Как проверить выделенные строки?
3. Нужно проверить создан ли он уже.
4. Если создан - очистить или уничтожить)
Не пинайте, пожалуйста,  пытаюсь реализовать связь многие-ко-многим путем создания пяти динамических списков...

Re: Example Create CheckListBox ,Listview In Form

collagen
Думаю будет проще добавить колонку с чекбокcом в компонент TableGrid

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns.InsertCheckBoxColumn(0);
end;

Поставить галочку

Form1.GridSearch.Cells[0,1] := '1'; // 0 - колонка, 1 - строка

Прочитать значение

ShowMessage(Form1.GridSearch.Cells[0,1]);
Dmitry.

Re: Example Create CheckListBox ,Listview In Form

Благодарю за ответ.
Действительно, так проще.
Есть один момент - значение записывается, но не считывается (не возвращает значение).
И интересует вопрос - а возможно ли через переменную задавать в какой TableGrid выводить результаты поиска?

Re: Example Create CheckListBox ,Listview In Form

collagen wrote:

Благодарю за ответ.
Действительно, так проще.
Есть один момент - значение записывается, но не считывается (не возвращает значение).
И интересует вопрос - а возможно ли через переменную задавать в какой TableGrid выводить результаты поиска?

Перепутал, считывать и записывать так

Form1.GridSearch.Cell[0,1].AsInteger := 1;
ShowMessage(Form1.GridSearch.Cell[0,1].AsInteger); 

Можно

Form1.buttonSearch.dbResultControl := 'TableGrid2';
Dmitry.

Re: Example Create CheckListBox ,Listview In Form

Работает превосходно. Еще раз благодарю.