Delphi dicas

Utilizando captions em componentes dbnavigator

//Coloque o componente DBNavigator no seu form;



//Em seguida declare a classe a seguir:



type

        TDBNewNavigator = class ( TDBNavigator );





        //Depois escreva o código abaixo para inserir captions em cada botão do DBNavigtor:



        //...



        uses Buttons;



        //...



        procedure TForm1.FormCreate(Sender: TObject);

        var

        B: TNavigateBtn;

        begin

                for B := Low ( TNavigateBtn ) to High ( TNavigateBtn ) do

                with TDBNewNavigator ( DBNavigator1 ).Buttons [ B ] do

                begin

                        Case Index of

                        nbFirst : Caption := 'Primeiro';

                        nbPrior : Caption := 'Anterior';

                        nbNext : Caption := 'Próximo';

                        nbLast : Caption := 'Último';

                        nbInsert : Caption := 'Novo';

                        nbDelete : Caption := 'Excluir';

                        nbEdit : Caption := 'Editar';

                        nbPost : Caption := 'Salvar';

                        nbCancel : Caption := 'Cancelar';

                        nbRefresh : Caption := 'Atualizar';

                End;

                Layout := blGlyphTop;

                Hint := Caption;

                ShowHint := True;

        end;

end;







{Configure as propriedades Height e Width do DBNavigator com os seguintes valores: Height = 41 e Width = 540 para melhor visualizar os captions }

por : Victor Roberto