Множественный выбор в TStringGrid

Previous  Top  Next

    
 

То же самое я проделывал и с DBGrid. (Пока не реализован Shift-MouseDown, только Ctrl-MouseDown).

 

Для TStringGrid вам нужно выполнить следующие шаги:

 

Заполните сетку, связывая Objects[0, ARow] с некоторым логическим объектом типа:

 

Code:

TBooleanObject = class(TObject)

public

Flag: Boolean;

end;

 

 

 

 

 

 

В обработчике события OnMouseDown и OnKeyDown измените флаг, как того требует ситуация.

В обработчике события OnDrawCell отрисуйте строку согласно флагу Objects[0,ARow].

©Drkb::01053

http://delphiworld.narod.ru/

DelphiWorld 6.0