Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > DBNavigator без иконок

Автор: Poseidon 18.5.2005, 17:41

Код

var 
  c: shortint; 
  s: string; 
begin 
  s := 'A'; 
  with DBNavigator1 do 
    for c := 0 to ControlCount - 1 do 
      if Controls[c] is TNavButton then 
        with TNavButton(Controls[c]) do 
        begin 
          ListBox1.Items.Add(Name); 
          Glyph := nil; 
          Caption := s; 
          Inc(s[1]); 
        end; 
end;