wspolrzedne aktualnej pozycji DBGrida

Witam,

Klikam na jakas komorke DBGrid i chcialbym odczytac aktualna pozycje komorki DBGrida ( chodzi o numer wiersza, nie kolumny ). Jest mi to potrzebne do stworzenia procedury tworzacej dynamicznie w miejscu klikniecia DBLookUpComboBox'a lub ComboBox'a. A moze ktos wie jak to rozwiazac. Sa na roznych stronach gotowe komponenty typu DBGrid ale typu shareware ( np. na stronie www.tmssoftware.com ).

Delphi 4 Professional.
--Andrzej Górniak
[email protected]

w części interface:

type TMojaSiatka = class (TCustomGrid)
public
property Row;
end;

w implementation np w OnCellClick:
Form1.Caption := 'Zaznaczono wiersz nr: ' + IntToStr(TMojaSiatka(DBGrid1).Row);

--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Mojm zdaniem aby wiedzieć gdzie jest wybrana komórka zrób tak:

• zmień własnośc DefaultDraving na False
• w zdarzeniu OnDrawColumnCell wpisz:

IF GdSelected in state Then
Begin
DBLookupCombobox1.Top := Rect.Top + Dbgrid1.Top ;
DBLookupCombobox1.Left := Rect.Left + Dbgrid1.Left ;
End;
dbgrid1.DefaultDrawColumnCell(Rect, DataCol,Column, State);
End;

Bardzo kolegom dziekuje o to mi wlasnie chodzilo.

Pozdrawiam.--Andrzej Górniak
[email protected]