| Kaf_Dağı | 11 Mart 2015 10:40 |
DBGrid'de Kolon Kilitleme ve Renklendirme
DBGrid'de Kolon Kilitleme ve Renklendirme Kod:
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,
| 