Как объеденить метод?

← →
kyn66 © (2005-07-04 13:20) [0]

Уважаемые мастера, для того, чтобы сделать грид полосатым, я использую следующую конструкцию:
procedure TParamFrm.OsDBGridGetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean); begin if (DM1.OsTbl.RecNo mod 2 <> 0) then Background := cl3DLight; if Highlight then begin AFont.Color := clBlack; Background := clMoneyGreen; AFont.Style := [fsBold]; end; end;
А как сделать так, чтобы на один метод можно было подвешивать разные Table ?

Спасибо.

← →
Johnmen © (2005-07-04 13:26) [1]

Field.DataSet.RecNo
А вообще
http://delphikingdom.ru/asp/viewitem.asp?catalogid=168#link5

← →
Digitman © (2005-07-04 13:26) [2]

никак.

← →
Val © (2005-07-04 13:28) [3]

Назначить этот метод обработчиком соотв. события в коде:
MyGrid.OnDBGridGetCellParams := MyStripOnDBGridGetCellParams;
либо прицепить его в designtime с помощью мышки.

← →
ЮЮ © (2005-07-05 03:32) [4]

заменить явное указание DataSeta на параметрическое: т.е. не
if (DM1.OsTbl.RecNo mod 2 <> 0) then
а
if (TDBGid(Sender).DataSource.DataSet.RecNo mod 2 <> 0) then

теперь этот обработчик можно назначать любому DBGrid-y

← →
kyn66 © (2005-07-11 13:49) [5]

>> ЮЮ
Именно это я и хотел [4] Спасибо. Просто не мог вспомнить, как правильно написать

> kyn66 © (11.07.05 13:49) [5]

Это тебе подсказали еще в [1], просто ты не захотел подумать, к чему это Field.DataSet.RecNo было упомянуто?

>Digitman © (04.07.05 13:26) [2]
>никак.

А что, один обработчик OnDrawColumnCell нельзя навесить разным гридам, отображающим разные датасеты ?
Или создать базовый класс (форму или фрэйм) с гридом, от которого наследовать визуализируемые контролы ?

Как объеденить метод? Найти похожие ветки