type
TMeuDBNavigator = class(TDBNavigator);
procedure TForm1.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
'Primeiro', 'Anterior', 'Pr�ximo', '�ltimo',
'Incluir', 'Excluir', 'Editar', 'Salvar',
'Cancelar', 'Atualizar');
var
Botao: TNavigateBtn;
begin
for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;
end;
Atenciosamente.
Daniel P. Guimar�es
Tecnobyte Inform�tica
www.tecnobyte.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos:
http://br.yahoo.com/info/utos.html
