1 Topic by vaskar (edited by vaskar 2016-02-13 22:07:56)

  • Registered: 2015-08-17
  • Posts: 60

Topic: Как сделать, чтобы при поиске комбобокс не смог (+)

Как сделать, чтобы при поиске комбобокс не смог оставаться без выбранного значения,  тоесть пустым?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Как сделать, чтобы при поиске комбобокс не смог (+)

Вы можете создать событие OnClick для кнопки Поиска, и в этом событии проверять, выбрано ли значение в кобомбокс, пример

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.ComboBox1.dbItemID = -1 then
    begin
        ShowMessage('Вы должны выбрать значение в ComboBox.');
        Cancel := true;
    end;
end;


Либо вы можете удалить пустое значение из ComboBox, создав событие OnShow для главной формы

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.ComboBox1.dbDeleteRecord (-1); // если нужно убрать первый пустой элемент
    if Form1.ComboBox1.Items.Count>0 then Form1.ComboBox1.ItemIndex := 0; // выбираем первую запись в ComboBox
end;
Dmitry.