Es soll durch einen doppelt Click im StringGrid, die ausgewählte Zeile gelöscht werden.
Außer wenn die erste Zeile doppelt geklickt wird!
Wie schütze ich die erste Zeile im Grid?
Delphi-Quellcode:
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
i,j :integer;
begin
if MessageDlg('Daten wirklich löschen?', mtWarning, [mbyes, mbno], 0) = mrYes then
StringGrid1.RowCount := StringGrid1.RowCount - 1;
StringGrid1.FixedRows:= 1;
StringGrid1.FixedColor := clred;
StringGrid1.Cells [1,0] := ' ';
StringGrid1.Cells [2,0] := 'Unixzeit';
StringGrid1.Cells [3,0] := 'Address';
StringGrid1.Cells [4,0] := 'Status';
StringGrid1.Cells [5,0] := 'Exit';
StringGrid1.Cells [6,0] := 'Short';
end