Ya logre todo...
Con el siguiente codigo pregunto si quiero eliminar la fila Nº X... del StringGrid,
If MessageDlg('Seguro de Eliminar la Fila '+IntToStr(Rejilla.Row), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Begin
For i := Rejilla.Row to Rejilla.rowcount - 1 do
begin
Rejilla.rows[i][0] := Rejilla.rows[i + 1][0];
Rejilla.rows[i][1] := Rejilla.rows[i + 1][1];
end;
Rejilla.rowCount := Rejilla.RowCount - 1;
Fil := Fil - 1;
End;
Faltaba un detalle, para cuando quisiera agregar otro item.... se debe resta 1 a la Fila....( Variable Fil ),
con respecto a limpiar toda las celdas, realice un ciclo for, en donde me limpia todo...
gracias por su ayuda,,
__________________
BlueSteel
|