| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stringgrid [D6]

Lower_ ©   (2005-09-04 20:21:00) 

Здраствуйте.
Скажите, как сделать так, чтобы,
если в ячейках Stringgrid не было данных - он ее не
выделял.
if (grid.Row >2) and (length(grid.Cells[3,grid.Row]) > 0) then
нет выделения.

---

begin...end   (2005-09-04 21:07:00) [1]

> Lower_   (04.09.05 20:21)

> Скажите, как сделать так, чтобы,
> если в ячейках Stringgrid не было данных - он ее не
> выделял.

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
 ARow: Integer; var CanSelect: Boolean);
begin
 CanSelect := (Sender as TStringGrid).Cells[ACol, ARow] <> ''
end

P.S. Из свойства Options исключите goRangeSelect.

---

Defunct   (2005-09-04 20:50:00) [2]

В OnDrawCell

 with TStringGrid( Sender ) do
 begin
    if Cells[ACol, ARow] = '' {либо ваше условие} then
    with Canvas do
    begin
       Pen.Color := Color;
       Brush.Color := Color;
       FillRect( Rect );
    end;
 end

---

Наверх