[GReddy]

У меня вот возникла проблема! Создал ComboBOX и CheckListBOX с наименованиями и незнаю как зделать так что бы когда я выбираю в ComboBOX одно из наименований к примеру скажем "Воздушные фильтры" и после выбора это наименования в CheckListBOX появлялся список так сказать товаров и так для каждого наименования в ComboBOX свои товары в CheckListBOX!!! И реально вообще такую задумку воплотить в жизнь??? Помогите пожалуйста КТО ПОНЯЛ МОЮ МЫСЛЬ!!! Заране благодарю )))

[Grunch]

В комбобоксе 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;

[GReddy]

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: Пользуемся тегами!

[lmikle]

Сотри руками эту строчку. Это какой-то глюк - заголовок функции вставился 2 раза.

[GReddy]

Я удалил, но серавно программа незапускается! При нажатии на пуск программы только курсор опускается в окне 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;

Admin: Для тех кто в танке - пользуемся спец. тегами для оформления кода! При рецедиве бан.

а внизу такой текст в окне 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??? Может кто подаст идею насчет темы или может кто нить курсовую саму подгонит!!!

[lmikle]

1. В конце добавь на отдельной строке end. (обязательно с точкой).
2. Убери в инспекторе объектов имя обработчика события OnClick.