|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Как объединить списки?
У меня вот возникла проблема! Создал ComboBOX и CheckListBOX с наименованиями и незнаю как зделать так что бы когда я выбираю в ComboBOX одно из наименований к примеру скажем "Воздушные фильтры" и после выбора это наименования в CheckListBOX появлялся список так сказать товаров и так для каждого наименования в ComboBOX свои товары в CheckListBOX!!! И реально вообще такую задумку воплотить в жизнь??? Помогите пожалуйста КТО ПОНЯЛ МОЮ МЫСЛЬ!!! Заране благодарю )))
|
#2
|
|||
|
|||
В комбобоксе 2 айтема
Код:
procedure TForm1.ComboBox1Change(Sender: TObject); begin CheckListBox1.Items.Clear; if ComboBox1.ItemIndex=0 then begin CheckListBox1.Items.Add('11'); CheckListBox1.Items.Add('12'); end; if ComboBox1.ItemIndex=1 then begin CheckListBox1.Items.Add('21'); CheckListBox1.Items.Add('22'); end; end; |
#3
|
|||
|
|||
Grunch
Я вставил код в программу, но возникла проблема в коде он выделяет эту строку и вообще незапускает программу! Как это можно исправить??? Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class(TForm) ComboBox1: TComboBox; CheckListBox1: TCheckListBox; procedure ComboBox1Change(Sender: TObject); procedure CheckListBox1Click(Sender: TObject); procedure CheckListBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ComboBox1Change(Sender: TObject); begin CheckListBox1.Items.Clear; if ComboBox1.ItemIndex=0 then begin CheckListBox1.Items.Add('11'); CheckListBox1.Items.Add('12'); end; if ComboBox1.ItemIndex=1 then begin CheckListBox1.Items.Add('21'); CheckListBox1.Items.Add('22'); end; end; Последний раз редактировалось Admin, 11.11.2008 в 12:58. |
#4
|
|||
|
|||
Сотри руками эту строчку. Это какой-то глюк - заголовок функции вставился 2 раза.
|
#5
|
|||
|
|||
Я удалил, но серавно программа незапускается! При нажатии на пуск программы только курсор опускается в окне Unit1.pas! А екст программы такой:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, CheckLst; type TForm1 = class(TForm) ComboBox1: TComboBox; CheckListBox1: TCheckListBox; procedure ComboBox1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ComboBox1Change(Sender: TObject); begin CheckListBox1.Items.Clear; if ComboBox1.ItemIndex=0 then begin CheckListBox1.Items.Add('11'); CheckListBox1.Items.Add('12'); end; if ComboBox1.ItemIndex=1 then begin CheckListBox1.Items.Add('21'); CheckListBox1.Items.Add('22'); end; end; а внизу такой текст в окне Unit1.pas в закладке Build: [Error] Unit1.pas(43): Declaration expected but end of file found [Error] Unit1.pas(14): Unsatisfied forward or external declaration: 'TForm1.CheckListBox1Click' [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' Как это тоже исправать?? И еще вопрос читающим кто нибудь делал кусовые на Delphi??? Может кто подаст идею насчет темы или может кто нить курсовую саму подгонит!!! Последний раз редактировалось Admin, 11.11.2008 в 21:03. |
#6
|
|||
|
|||
1. В конце добавь на отдельной строке end. (обязательно с точкой).
2. Убери в инспекторе объектов имя обработчика события OnClick. |