DBNavigator без иконок

Я хочу создать DBNavigator, который бы всесто стандартных иконок имел бы текст.

Я думаю этот код вам поможет:

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;

Ralph Friedman [000752]

Содержание раздела