//------------------------------------------------------------------------------
procedure TF_Produtos.FF_Habilitar_Botoes_Insert(boo_habilitar: Boolean);
begin
self.BitBtn1.Enabled := True;
self.BitBtn2.Enabled := boo_habilitar;
self.BitBtn3.Enabled := boo_habilitar;
self.BitBtn4.Enabled := boo_habilitar;
self.BitBtn5.Enabled := boo_habilitar;
self.BitBtn6.Enabled := True; //...inserir
self.BitBtn7.Enabled := boo_habilitar; //...alterar
self.BitBtn8.Enabled := boo_habilitar;
self.BitBtn9.Enabled := True;
self.BitBtn10.Enabled:= boo_habilitar;
self.BitBtn11.Enabled:= boo_habilitar;
self.BitBtn12.Enabled:= boo_habilitar;
end;
//------------------------------------------------------------------------------
Procedure para Habilitar Botões
Postado por
Fabiana Freisleben
domingo, maio 27, 2007
Marcadores: Códigos Delphi

0 comentários:
Postar um comentário