1. Yeni bir proje açın.
2. Form1 üzerine 1 adet TRadioGroup, 1 adet TDBGrid, 1 adet TDataSource,
   1 adet TTable(TADOTable da olabilir) bırakın.
3. TTable, TDataSource ve TDBGrid ile ilgili bağlantılarınızı tamamlayın.
4. RadioGroup1'in Columns özelliğini 2, ItemIndex özelliğini 0 ve Items özelliğini
   tıklayıp 2 adet bilgi tanımlayın(Borç ve Alacak .. gibi).
5. Aşağıdaki kodları ilgili yordamların altına yapıştırın ve projenizi çalıştırın.
6. RadioGroup1 üzerinde seçim yaparak sonucu gözleyebilirsiniz.
 
/// Unit1.pas ///
procedure TForm1.FormShow(Sender: TObject);
begin
  RadioGroup1Click(Self);
  //DBGrid1.Fields[0].EditMask:= '!###\.#0;0; ';
  //DBGrid1.Fields[1].EditMask:= '!###\.#0;0; ';
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
     0: begin
           DBGrid1.Columns.Items[0].ReadOnly:= False;
           DBGrid1.Columns.Items[0].Color:= clWhite;
           DBGrid1.Columns.Items[1].ReadOnly:= True;
           DBGrid1.Columns.Items[1].Color:= clSkyBlue;
        end;
     1: begin
           DBGrid1.Columns.Items[0].ReadOnly:= True;
           DBGrid1.Columns.Items[0].Color:= clSkyBlue;
           DBGrid1.Columns.Items[1].ReadOnly:= False;
           DBGrid1.Columns.Items[1].Color:= clWhite;
        end;
  end;
end;
/// Unit1.pas sonu ///
Not: Kilitlediğiniz DBGrid1 kolonuna bilgi giremezsiniz. Renk ise seçiminize bağlı.
 
İşinizi görmesi dileğimle,