Zaznaczanie wiersza w stringgrid

W jaki sposób odczytać index zaznczonego wiersza w StringGrid?

StringGrid1.Selection.Top

A w jaki sposób teraz usunąć ten zaznaczony wiersz?

bo jak daję stringgrid1.row[i].Delete[i]; to niedziała

W mouseDown komponentu StringGrid wstaw StringGrid1.Mousetocell(x,y,ACol,ARow)
Aby usynąć wiersz np w popmenu lub w buttonie

var usun,a:integer;
begin
usun:=ARow;
for a := usun to Xg.rowcount - 1 do
BEGIN
Xg.rows[a] := Xg.rows[a+1] ;
end;
Xg.rowcount := Xg.rowcount - 1;
U mnie działa pozdro

krop napisał(a)

bo jak daję stringgrid1.row[i].Delete[i]; to niedziała

Nie dziwie się, że nie działa, bo usuwasz... hmm... Szczerze mówiąc, to nawet nie wiem, co! Polecam

stringgrid1.rows.delete[i]

albo coś takiego. Nie dam głowy, a dostępu do Delphi teraz nie mam.

Waldek r52 napisał(a)

W mouseDown komponentu StringGrid wstaw StringGrid1.Mousetocell(x,y,ACol,ARow)
Aby usynąć wiersz np w popmenu lub w buttonie

var usun,a:integer;
begin
usun:=ARow;
for a := usun to Xg.rowcount - 1 do
BEGIN
Xg.rows[a] := Xg.rows[a+1] ;
end;
Xg.rowcount := Xg.rowcount - 1;
U mnie działa pozdro

Pomysł ciekawy, tylko po co Panowie te pętle! Przecież to jest koszmarnie nie optymalne!