Выделение активной строки StringGrid

← →
viola (2005-02-04 12:56) [0]

Привет ребята!
У меня такой вопрос:
Как мне при нажатии управляющих клавиш(Up,Down)-менялась позиция выделенного элемента stringGrid-a, собственно вся сложность заключается в том, что при перемещении активная ячейка выделялась другим цветом?
Пожалуйста, если есть приведите код!
Заранее благодарна!

← →
_vox_ (2005-02-04 14:01) [1]

Пишешь в событие OnDrawCell:

if (ACol = Grid.Col) and (ARow = Grid.Row) then
begin
Grid.Canvas.Brush.Color := clRed; // Ставишь нужный цвет
Grid.Canvas.FillRect(Rect);
Grid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Grid.Cells[ACol, ARow]);
end

← →
viola (2005-02-04 14:39) [2]

Спасибо оно работает!
Но, а вот как при OnShow формы, устанавливать позицию на первую строчку и закрасить ее?

← →
Александр Иванов © (2005-02-04 14:49) [3]

viola (04.02.05 14:39) [2]
То же самое, но без условия, и колонку и строку присвоить нужную.

← →
_vox_ (2005-02-04 14:53) [4]

1. ставишь в инспекторе Grid.Options.goRowSelect в True
2. Чуть-чуть меняешь OnDrawCell на

if ARow = Grid.Row then
begin
Grid.Canvas.Brush.Color := clRed; // Ставишь нужный цвет
Grid.Canvas.FillRect(Rect);
Grid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Grid.Cells[ACol, ARow]);
end
3. В OnShow пишешь Grid.Row := < номер первой строки >
4. Покупаешь толстую книгу по Delphi и читаешь, читаешь, читаешь...

Выделение активной строки StringGrid Найти похожие ветки