CheckListBox

[jahongir007]

Как можно подключить CheckListBox на база данных? Мне нужно выбрать несколько элементов и сортировать по этим элементом. Я не нашел DBCeckListBox. Помогите!!!

[artemavd]

Используйте функцию, которая создает в гриде чекбоксы. Кажется вот эта может подойти:

procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
  DrawFlags: Integer;
begin
  Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
  DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK
  if Checked then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;

На событие OnDrawColumnCell повесьте вызов процедуры DrawGridCheckBox():

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.FieldName = 'WEIGHT' then // Модифицируйте под себя
    if Column.Field.AsInteger > 10 then
      DrawGridCheckBox(DBGrid1.Canvas, Rect, true)
    else
      DrawGridCheckBox(DBGrid1.Canvas, Rect, false)
end;

[Kotofff]

Сообщение от jahongir007

Как можно подключить CheckListBox на база данных? Мне нужно выбрать несколько элементов и сортировать по этим элементом. Я не нашел DBCeckListBox. Помогите!!!

Какие именно "элементы" должны быть в твоем CheckListBox`е ?
Имена полей по которым ты хочешь сортировать ?
Или какие-то ключевые слова по которым будешь делать выборку из базы ?
Какую базу данных используешь ?
Раскрой вопрос полнее ... будет легче ответить ...

[jahongir007]

я могу отправит на почту вид форму и описание.

[jahongir007]

Спасибо! Если что я буду обращаться к вам!