StringGrid options zur laufzeit ändern

[Sharky]

Hai dopeline,

z.B. so:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if (Sender As TCheckbox).Checked then
  begin
   StringGrid1.Options := StringGrid1.Options + [goVertLine];
  end
 else
  begin
   StringGrid1.Options := StringGrid1.Options - [goVertLine];
  end;
end;