Множественный выбор в TStringGrid
Falk0ner, вс, 06/07/2008 - 15:34.
Множественный выбор в TStringGrid То же самое я проделывал и с DBGrid. (Пока не реализован Shift-MouseDown, только Ctrl-MouseDown). Для TStringGrid вам нужно выполнить следующие шаги: Заполните сетку, связывая Objects[0, ARow] с некоторым логическим объектом типа:
TBooleanObject = class(TObject)
public
Flag: Boolean;
end;
public
Flag: Boolean;
end;
В обработчике события OnMouseDown и OnKeyDown измените флаг, как того требует ситуация.
В обработчике события OnDrawCell отрисуйте строку согласно флагу Objects[0,ARow].
http://delphiworld.narod.ru/
DelphiWorld 6.0
Отправить комментарий