Скроллинг в TStringGrid'e

[bestonix]

Доброго здоровья уважаемые.
Подскажите пожалуйста решение проблемы.
В ячейках грида по определённым условиям "рисую" TComboBox или TDateEdit
Для того, чтобы они передвигались при прокрутке написал вот такой код:

Код: Выделить всё

procedure TFMain.sgDopAgidDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
  if sgDopAgid.Objects[2, aRow] is TComboBox then
     TComboBox(sgDopAgid.Objects[2, aRow]).BoundsRect := sgDopAgid.CellRect(2, aRow);
end;


Проблема заключается в том, что компонент находящийся на первой строке никуда не передвигается.
Т.е. допустим, что на первой строке (Row=1) находится ComboBox, а на второй нет ничего, то при скролле он не "исчезает"

Добавлено спустя 3 минуты 41 секунду:
Собственно говоря подобное происходит когда компоненты находятся на границах Грида, вверху или внизу

[Climber]

У всех визуальных компонентов есть свойство Parent. Сделайте так (в конструкторе формы или при событии OnShow):

Код: Выделить всё

MyDateEdit.Parent := MyStringGrid;

[bestonix]

>Climber »

Именно так и сделал, но толку от этого чуть.
К сожалению ситуация вообще превращается в кошмар если передвигать скролл очень быстро
или попробовать перелистнуть. Все контролы на поверхности съезжают к чертям.
Решил проблему просто, выбрал ячейку - создался новый контрол и показался, отработал,
присвоил новое значение ячейке и спрятал контрол.

Так, что для пользователя создаётся вполне приятная картина.

[alexs]

bestonix
1. А почему именно StringGrid - возьми RxDBGrid - там и комбобоксик есть, и редактор даты.
2. Если идеология не позволяет - посмотри как реализован стандартный редактор в гриде (String... DB... rxDB..), сделай наследника от грида и добавь своих редакторов. Так будет проще и правильнее.

[Vadim]

В StringGrid тоже есть собственные ComboBox'ы.

[bestonix]

В StringGrid тоже есть собственные ComboBox'ы.

Можно подробнее ?
Не нашел как из ячейки грида сделать ComboBox.

Добавлено спустя 4 минуты 13 секунд:

bestonix
1. А почему именно StringGrid - возьми RxDBGrid - там и комбобоксик есть, и редактор даты.
2. Если идеология не позволяет - посмотри как реализован стандартный редактор в гриде (String... DB... rxDB..), сделай наследника от грида и добавь своих редакторов. Так будет проще и правильнее.

Всё просто.
StringGrid используется потому, что некоторые ячейки не просто заполняются какими-то данными ,
а могут еще и вычисляться по определенным условиям из нескольких таблиц.
Это не моя затея, подстраиваюсь под чужую структуру БД и логику.
Использовать именно StringGrid мне показалось гораздо удобнее

[GAMER]

Я тоже использую только стринггрид. Такая у меня идеология
Для комбобоксов и других контролов в ячейках, я поступаю следующим образом. Когда идет редактирование, то просто блокирую сам стринггрид, чтобы он не прокручивался. А сами контролы визуализирую в собитии StringGridSelection. Там определяю координаты ячейки.
Где-то так.

[Vadim]

Можно подробнее ?

1. Кладёте на форму TStringGrid.
2. В инспекторе объектов ищете у него свойство "Columns" и нажимаете там на кнопку с троеточием.
3. В появившемся окне создания\редактирования колонок нажимаете кнопку "+ Добавить".
4. В этом же окне появляется новая строчка "0 -Title". Это новая колонка. Теперь все колонки в StringGrid'e Вы будете создавать здесь.
5. В свойстве колонки "ButtonStryle" выбрать "cbsPickList".
6. В свойство колонки "PickList" занести нужные строковые значения.
Сразу оговорюсь - с таким типом колонок я уже работал достаточно давно.

[bestonix]

Можно подробнее ?

1. Кладёте на форму TStringGrid.
2. В инспекторе объектов ищете у него свойство "Columns" и нажимаете там на кнопку с троеточием.
3. В появившемся окне создания\редактирования колонок нажимаете кнопку "+ Добавить".
4. В этом же окне появляется новая строчка "0 -Title". Это новая колонка. Теперь все колонки в StringGrid'e Вы будете создавать здесь.
5. В свойстве колонки "ButtonStryle" выбрать "cbsPickList".
6. В свойство колонки "PickList" занести нужные строковые значения.
Сразу оговорюсь - с таким типом колонок я уже работал достаточно давно.

Здорово, но в данном случае не то. В разных строках в ячейке могут понадобиться разные компоненты.
Сейчас это ComboBox и DateEdit. В будущем пользователи может быть еще что нить придумают

Вопрос появился. Как узнать, что контрол потерял или получил фокус

[Vadim]

Как узнать, что контрол потерял или получил фокус

Тот контрол, который на StringGrid лежит? У каждого контрола есть событие OnExit. Ему нужно присвоить Вашу процедуру. Она будет выполнятся при потере фокуса.

[bestonix]

Как узнать, что контрол потерял или получил фокус

Тот контрол, который на StringGrid лежит? У каждого контрола есть событие OnExit. Ему нужно присвоить Вашу процедуру. Она будет выполнятся при потере фокуса.

Когда щелкаю по ячейке отрабатывает событие OnClick и над ячейкой рисуется и заполняется строками ComboBox.
Затем выполняется строка ComboBox.SetFocus, событие StringGrid.OnExit не возникает.
Теперь щелкаю у StringGrid по полосе прокрутки. Не срабатывают, ни событие OnExit у ComboBox, ни OnEnter у StringGrid.

Добавлено спустя 2 часа 30 минут 36 секунд:
Вот, может кому пригодится.
У StringGrid'a есть событие, которое в полной мере отвечает на вопрос о скроллинге.
Собятие - OnTopLeftChanged. Т.е. как только перерисовывается верхняя-левая ячейка, то это значит что работал скроллинг.
Теперь все просто шикарно работает