Bei leerem StringGrid Btn. Löschen deaktivieren

[LOMBI]

Guten Abend,

beim ersten Ausführen meines Programmes und einem leeren StringGrid
ohne Daten bleibt der Btn. "Löschen" nicht deaktiviert.

Delphi-Quellcode:

procedure DeleteRow(sg: TStringGrid; index: Integer);
var
  iRow: Integer;
begin
  with TGridCracker (sg) do
    begin
      if index < 0 then index:= Row;
        if Row = - 1 then                  //(für index: Integer = -1)
          sg.Rows[index].Clear;
          DeleteRow(index);
        if iRow < RowCount
          then Row := iRow
          else Row := Pred(RowCount);
end;

procedure TFormKundenListe.BtnLoeschenClick(Sender: TObject);
begin
  with GridKunden do
    if LineCount = 1
      then Rows[Row].Clear;
      else DeleteRow(GridKunden, Row);
   LineCount := LineCount - 1;
   BtnLoeschen.Enabled := LineCount > 0;
end;

Woran mag das liegen? Wer hilft mir bitte weiter?

Grüße
Lombi

[marabu]

Hallo Lombi,

du korrigierst zwar den Zustand beim Löschen und Einfügen einer Zeile ins Grid, aber prüfe mal, ob du die Eigenschaft Enabled deiner Buttons auch richtig initialisiert hast. Das geht im Object Inspector oder im Ereignis OnCreate() der Form.

Freundliche Grüße