quarta-feira, 25 de novembro de 2009

Utilizando captions em componentes dbnavigator

Declare a seguinte classe:

type
TDBNewNavigator = class ( TDBNavigator );


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;

Nenhum comentário:

Postar um comentário