استعمال خاصية الاضهار والاخفاء في الدالفي : browse et state botton(ajot,enreg,suppr,mod

استعمال خاصية الاضهار والاخفاء في الدالفي :

browse et state botton(ajot,enreg,suppr,mod)

procedure TForm2.DataSource1DataChange(Sender: TObject; Field: TField);

begin

BITBTN3.Enabled:=adotable1.State=dsbrowse;

BITBTN4.Enabled:=adotable1.State IN[dsinsert,dsedit];

BITBTN5.Enabled:=adotable1.State=dsbrowse;

BITBTN6.Enabled:=adotable1.State=dsbrowse;   

end;