Hallo ..., hier noch eine schnellere Variante um einzelne Zeilen im SG zu löschen. Du brauchst dich dann nimmer um das 'Nachrücken' der Zeilen kümmern!
Delphi-Quellcode:
type
TStringGridHack =
class(TStringGrid)
protected
procedure DeleteRow(ARow: Longint);
reintroduce;
end;
...
//---------- HackGrid ---------
//--- Zeile löschen
procedure TStringGridHack.DeleteRow(ARow: Longint);
var GemRow: Integer;
begin
GemRow := Row;
if RowCount > FixedRows + 1
then
inherited DeleteRow(ARow)
else
Rows[ARow].Clear;
if GemRow < RowCount
then
Row := GemRow;
end;
[Edit] hab gefunden woher ich den Code mal her hatte
[
url=http:
//swissdelphicenter.ch/de/showcode.php?id=460]Link[/url]