[Resolvido] Caption no dbnavigator

[Ademir Dalalibera 0]

Pessoa, sou iniciante no delphi, preciso de uma ajuda

 

Estou utilizando esta rotina para colocar captions no dbnavigator. só que dá um erro, dizendo que o identificador não está declarado, nesta linha

 

Layout := blGlyphTop;

 

Onde eu declaro, ou qual dcu eu tenho que colocar para declarar este blGlyphTop.

 

ps. Tirando esta linha o código funciona normal, só que as figuras (glyph) ficam ao lado do nome, queria que ficassem em cima do nome.

 

Desde já agradeço a ajuda prestada.

 

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;

[Ademir Dalalibera 0]

Consegui resolver, era só colocar a dcu Buttons no Uses.