[resolvido] Dbnavigator

[Eder]

Ola..pessoal

eu gostaria de saber como faço um if tipo este abaixo...

Mas este abaixo não funciona ta errado..

IF FORM5.USUARIO.CAPTION = 'CARLOS' THEN
BEGIN
DBNavigator1.VisibleButtons.nbdelete:=True
else
DBNavigator1.VisibleButtons.nbdelete:=false
end;

O que eu queria é só deixar o visible=true do botão NbDeleti pro Carlos o restante FALSE

mas eu queria no codigo....

ta pra fazer??

muito grato

[Guest --Jonas --]

A forma correta seria:

IF FORM5.USUARIO.CAPTION = 'CARLOS' THEN
BEGIN
DBNavigator1.VisibleButtons := [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh];
else
DBNavigator1.VisibleButtons := [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh];
end;

[Micheus]

Outra forma, utilizando operação com conjuntos (que é do que se trata VisibleButtons):

IF FORM5.USUARIO.CAPTION = 'CARLOS' THEN
  DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons + [nbDelete]  // inclui delete no conjunto
else
  DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons - [nbDelete];  // remove delete do conjunto

[Eder]

Valeu..Pessoal..muito Grato

t+ :D