DriveSoft wrote:К сожалению данное действие нельзя настроить, могу только предложить с помощью скрипта не скрывать колонки, а удалять не нужные
Form1.TableGrid1.Columns.Delete(0); // удалит первую колонку
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
if Form1.GridEmployees.Columns.Count >= 3 then
begin
Form1.GridEmployees.Columns[0].Delete := Form1.CheckBox1.Checked;
Form1.GridEmployees.Columns[1].Delete := Form1.CheckBox2.Checked;
Form1.GridEmployees.Columns[2].Delete := Form1.CheckBox3.Checked;
end;
end;
procedure Form1_GridEmployees_OnChange (Sender: string);
begin
Form1.GridEmployees.Columns[0].Delete := Form1.CheckBox1.Checked;
Form1.GridEmployees.Columns[1].Delete := Form1.CheckBox2.Checked;
Form1.GridEmployees.Columns[2].Delete := Form1.CheckBox3.Checked;
end;
С этим скриптом не получается, как его поправить?