Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

Delphi DGBrid помещение компонента в ячейку сетки данных

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование
Предыдущая тема :: Следующая тема  
Автор Сообщение
bv7



Зарегистрирован: 13.10.2008
Сообщения: 6

СообщениеДобавлено: Вт Июн 02 2009 13:22    Заголовок сообщения: Delphi DGBrid помещение компонента в ячейку сетки данных Ответить с цитатой

При помещении компонента DBComboBoxв ячейку DBGrid'a не производится выборка значений. В чем причина?
Код:

begin
  FEditor := TDBComboBox.Create(Self);
  FEditor.Parent := Self;
  FEditor.Visible := false;
  FEditor.Style := csDropdownList;
  FEditor.DataSource := DBGrid1.DataSource;
  FEditor.DataField := 'CEH';
  for I:=0 to Pred(DBGrid1.Columns.Count) do
    if DBGrid1.Columns[I].Field.FieldName = FEditor.DataField then
    begin
         FEditor.Items.Assign(DBGrid1.Columns[I].PickList);
      Break;
    end;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
    if (Column.Field.FieldName = FEditor.DataField) then
    begin
       FEditor.Left := Rect.Left + DBGrid1.Left;
      FEditor.Top := Rect.Top + DBGrid1.top;
      FEditor.Width := Rect.Right - Rect.Left + 2;
      FEditor.Visible := True;
    end;
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
   if DBGrid1.SelectedField.FieldName = FEditor.DataField then
    FEditor.Visible := false;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key <> chr(9)) then
    if (DBGrid1.SelectedField.FieldName = FEditor.DataField) then begin
      FEditor.SetFocus;
      SendMessage(FEditor.Handle, WM_CHAR, word(Key), 0);
    end;
end;
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...