| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как обработать OnCellClick при dgRowSelect = true
Vi0let © (2004-01-27 07:17:00)
Когда обработываешь событие OnCellClick и в Options лежит dgRowSelect полученный Column - всегда первая колонка. Как обработать нажатие на произвольную колонку?
Gorlum (2004-01-30 11:42:00) [1]
>Vi0let © (30.01.04 10:40) [7]
Уверен? Тогда почитай:
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/helloworld/dbgridcolor.htm
Vi0let (2004-01-30 10:40:00) [2]
ну теперь то, я всё знаю про TDBGrid :)
ЮЮ (2004-01-30 08:53:00) [3]
потому что tblMain и gr.DataSource.DataSet - это один и тот же объект. Более того, в OnDraw... Grida текущей записью является именно "рисуемая" запись, а не та, про которую ты думаешь, что она осталась "текущей", правда в этом есть и плюс, можно раскрашивать поле в нужный колер, основываясь на значения других полей текущей записи.
Но именно поэтому "привязаться" к текущей записи надо не в OnDraw, а заранее в OnAfterScroll
Vi0let (2004-01-30 08:35:00) [4]
спасибо понял
я пробовал нечто похожее, но у меня при этом почемуто красилось все:
if gr.DataSet["num"] = tblMain["num"]) then ...
ЮЮ (2004-01-30 05:26:00) [5]
1 Способ.
В обработчике DBGrid.DataSource.DataSet.AfterScroll запоминать значение ключевого поля, например:
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
DBGrid1.Tag := DataSet.Fields[0].AsInteger;
end;
теперь при отрисовке мы можем узнть рисуем ли мы текущую запись или нет:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
gr: TDBGrid;
begin
gr := TDBGrid(Sender);
if (gr.DataSource.DataSet.Fields[0].asInteger = gr.tag) then begin
// рисуем поля текущей записи
gr.Canvas.Brush.Color := clHighlight;
gr.Canvas.Font.Color := clHighlightText;
end;
gr.DefaultDrawDataCell(Rect, Column.Field, []);
end;
2 способ.
Написать собственного наследника TDBGrid, перекрыв DrawCell и написав его так, как душе угодно
Vi0let (2004-01-30 02:51:00) [6]
ЮЮ
как определить в OnDrawColumnCell, что ячейка относится к текущей строке
всяко разно перепробовал
Vi0let (2004-01-27 11:07:00) [7]
Сэнюкью вэри мач
ЮЮ (2004-01-27 07:59:00) [8]
Убрать dgRowSelect, естественно. А выделение текущей записи цветом сделать в OnDrawColumnCell
| |
