TCombobox

[kalyan_ne_@]

Здравствуйте. Помогите пожалуйста разобраться а то я уже второй день голову ломаю...

Значит есть у меня программа для работы с базами. В ней как полагается есть DBGrid. Для редактирования полей грида я юзаю комбобокс который заполняется значениями из справочников базы...
комбобокс не висит постоянно на форме, он появляется только когда щёлкаешь по ячейке грида, то есть на событие DBGrid1DrawColumnCell, там устанавливаются всякие размеры и т.д. а затем комбобокс делаецца видимым...
так вот, до определённого момента всё работало нормально, но наступил тот чёрный день, когда этот самый комбобокс просто перестал работать, то есть работать то он работает, но вот список не раскрывается, хотя в самом комбобоксе присутствует порядка 150 элементов

когда у комбобокса родитель грид то список не раскрывается, а если сделать родителем форму или например ричэдит то всё работает нормально...

уже всю голову сломал. помогите пожалуйста разобраться

[Stilet]

Нечего нецензурщиной раскидываться.
По поводу вопроса, ошибка в коде, протрассируй по тем местам где заполняется этот бокс.
Может в нем у тебя где-то выставляется Enabled:=false

[Gladiator]

ты попробуй использовать не обычный combo а DBLookupCombobox с панели Data Controls.

[kalyan_ne_@]

Блин ну я же не настолько тупой... если бы я где ставил Enable:=false то он бы тогда отображался как неактивный и я бы ваще с ним ничего не смог бы сделать. а я могу нажать на кнопку выпадения списка, я даже вижу как чо то там происходит (выпадает какая то маленькая полосочка), и срабатывает событие OnEnter. а вот события OnDropDown и OnCloseUp ваще никак не обрабатываются.
причём такая ерунда происходит только если родителем является грид

ещё одну фигню заметил вчера: когда я попытался удалить с формы грид то делфя выдала мне эксепшн типа Access Violation at module rtl70.bpl или что то в этом духе. Вот этот вот рантайм эксепшн меня тоже очень смутил ибо не должно такого быть. Опять же, с другими компонентами всё в порядке, только с гридом проблемы %)

[Stilet]

В таком случае без кода не разобраться.

Вот этот вот рантайм эксепшн

Делфи не выдает ошибки Runtime это делает программа, с чего я могу понять что удалял ты грид во время ее работы, и где-то чего-то не учел.

Если ты удалял его в дизайне то выкинь эту делфу, или проверь правильно ли у тебя работает провайдер, к которому ДБГрид подключен, как ни странно иногда они глюкают (Один раз такое видел в колледже)

[kalyan_ne_@]

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

вот код для бокса:

procedure TFormMain.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  FieldValue: string;
  cccount: byte;
  i: integer;
  tp: integer;
  DateTimeValue: TDateTime;
begin
    if (gdFocused in State) then
      begin  {if Focused}
        CurField:='';
        if column.Field.DataType <> ftDateTime then
          if col <> column then
            begin  {if col}
              DateTimePicker1.Visible:=false;
              ComboBox1.Parent:=DBGrid1;
              if FillComboBox(ComboBox1, Column.FieldName, Rect) then
                begin   {if FillCombobox}
                  cccount:=ComboBox1.Items.Count - 1;
                  for i:= 0 to cccount do
                    if Column.Field.AsString=ComboBox1.Items.Strings[i] then
                      begin
                        ComboBox1.ItemIndex:=i;
                        break;
                      end;
                  ComboBox1.Left := Rect.Left + DBGrid1.Left;
                  ComboBox1.Top := Rect.Top + DBGrid1.top  - ToolBar2.Height - ToolBar3.Height;
                  ComboBox1.Width := Rect.Right - Rect.Left;
                  ComboBox1.Visible := True;
                  ComboBox1.SetFocus;
                  CurField:=Column.FieldName;;
                  col:=column;
                  rec:=rect;
                  stat:=state;
                  datcol:=datacol;
                end   {if FillCombobox}
              else   {if FillCombobox}
                begin   {else FillCombobox}
                  ComboBox1.Visible:=false;
                end;   {else FillCombobox}
            end  {if col}
          else  {else col}
            begin  {else col}
              DateTimePicker1.Visible:=false;
              cccount:=ComboBox1.Items.Count - 1;
              for i:= 0 to cccount do
                if Column.Field.AsString=ComboBox1.Items.Strings[i] then
                  begin
                    ComboBox1.ItemIndex:=i;
                    break;
                  end;
              ComboBox1.Left := Rect.Left + DBGrid1.Left;
              ComboBox1.Top := Rect.Top + DBGrid1.top - ToolBar2.Height - ToolBar3.Height;
              ComboBox1.Width := Rect.Right - Rect.Left;
              ComboBox1.Visible := True;
              ComboBox1.SetFocus;
              CurField:=Column.FieldName;;
              col:=column;
              rec:=rect;
              stat:=state;
              datcol:=datacol;
            end  {else col}
        else
          begin
            CurField:=Column.FieldName;
            col:=Column;
            OldDateTimeValue:=Column.Field.AsDateTime;
            DateTimePicker1.Parent:=DBGrid1;
            DateTimeValue:=Column.Field.AsDateTime;
            DateTimePicker1.DateTime:=DateTimeValue;
            DateTimePicker1.Left := Rect.Left + DBGrid1.Left;
            DateTimePicker1.Top := Rect.Top + DBGrid1.top - ToolBar2.Height - ToolBar3.Height;
            DateTimePicker1.Width := Rect.Right - Rect.Left;
            if Column.Field.AsString = '' then
              DateTimePicker1.Date:=Date;
            DateTimePicker1.Visible := True;
          end;
      end  {if Focused}
    else
      CurField:='';
  NeedToRepaint:=false;
end;

[kalyan_ne_@]

Соответственно функция FillComboBox заполняет бокс, вот её код:

function TFormMain.FillComboBox(pComboBox: TComboBox; pFieldName: string; pRect: TRect): boolean;
var
  tab: TADOTable;
  i: integer;
  rcount: integer;
  ValidField: boolean;
begin
  Result:=false;
  ValidField:=false;
  tab:=TADOTable.Create(nil);
  tab.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+FormMain.Path+'\'+FormMain.BaseName+';Mode=ReadWrite|Share Deny None;Persist Security Info=False';
  if BaseName = 'RoadSign.mdb' then
    begin
      if pFieldName='DSign_GOST' then
        begin
          ValidField:=true;
          tab.TableName:='RefBookGOST (Справочник по ГОСТам)';
        end;
      if pFieldName='DInscription_on_Sign' then
        begin
          ValidField:=true;
          tab.TableName:='RefbookInscriptionOnSign (Справочник по надписям в поле знака)';
        end;
      if pFieldName='DSet_Type' then
        begin
          ValidField:=true;
          tab.TableName:='RefBookSetType (Справочник по способам крепления)';
        end;
      if pFieldName='DSign_Type' then
        begin
          ValidField:=true;
          tab.TableName:='RefBookSignType (Справочник по типам знаков)';
        end;
      if pFieldName='DSign_TypeSize' then
        begin
          ValidField:=true;
          tab.TableName:='RefBookSignTypeSize (Справочник по типоразмерам знаков)';
        end;
      if pFieldName='DUsing_Term' then
        begin
          ValidField:=true;
          tab.TableName:='RefBookUsingTerm (Справочник по срокам использования)';
        end;
    end;
  if ValidField then
    with tab do
      begin  {with}
        try
          open;
        except
          on e: exception do
            messagedlg('Не удалось прочитать справочник!', mtError, [mbOK], 0);
        end;
        pComboBox.Clear;
        DisableControls;
        rcount:=RecordCount - 1;
        for i:= 0 to rcount do
          begin  {for}
            pComboBox.Items.Add(Fields[1].AsString);
            CodeArray[i]:=Fields[0].AsString;
            next;
          end;  {for}
        close;
        free;
        ValidField:=false;
        Result:=true;
      end;  {with}
end;

[kalyan_ne_@]

короче, выглядело это так: в пятницу вечером всё проверил, всё работало, откомпилил, сохранил и ушёл домой... в понедельник прихожу на работу, запускаю и неожиданно для меня комбобокс не работает
вот честное слово нихрена в коде не менял
раньше такая ерунда случалась только под 2000 виндой а теперь и на ХР
кароче ваще писец

[Domovoy]

Здесь чёрт ногу сломит. Да и вообще мне кажется, что если ты расскажешь зачем ты так извращаешься, то мы нашли бы более разумное решение.

[Ulagay700]

Проблема возможно не в комбо, а в гриде, раз он родитель. Ничего там не менял?