DBNavigator без иконок - Delphi Sources FAQ

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

DBNavigator без иконок

Автор: Ralph Friedman

Фидошник игpает в Поле Чудес, на табло: ***
Якубович читает задание:
- Часть тела
Фидошник сpазу:
- Hога!
- Hо ведь в задании только тpи буквы...
- :-/ а я думал у вас H не настpоена.

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;