Stringgrid (mit goRowSelect) eintrag/zeile löschen

[dopeline]

Hallo Leutz!

Ich hab eine Tabelle (StringGrid) und will mit einem Rechtsklick auf eine Zeile (PopUPMenu-->"löschen") diese aus der tabelle entfernen. wie mache ich das?

Grüße, dopeline

[dopeline]

ok, das problem hab ich schon gelöst:

Delphi-Quellcode:

procedure GridDeleteRow(RowNumber : Integer; Grid : TStringGrid);
Var
  i : Integer;
Begin
  Grid.Row := RowNumber;
  If (Grid.Row = Grid.RowCount -1) Then
  Begin
    {On the last row}
    Grid.RowCount := Grid.RowCount - 1;
  End
  Else
  Begin
    {Not the last row}
    For i := RowNumber To Grid.RowCount - 1 Do
    Begin
      Grid.Rows[i] := Grid.Rows[i+ 1];
    End;
    Grid.RowCount := Grid.RowCount - 1;
  End;
End;

----------------------------------------------------------------------
procedure TFormHaupt.SBLoeschenClick(Sender: TObject);
begin
GridDeleteRow(StringGrid1.Row,StringGrid1);
end;

Funzt super!!

Grüße, dopeline

[Daniel B]

Hallo,

trotzdem verschiebe ich es nach VCL-Komponenten.

Grüsse, Daniel