Советы по Delphi

       

DBNavigator без иконок


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

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

varc: shortint;s: string;begins := 'A';with DBNavigator1 dofor c := 0 to ControlCount -1 doif Controls[c] is TNavButton thenwith TNavButton(Controls[c]) dobeginListBox1.Items.Add(Name);Glyph := nil;Caption := s;Inc(s[1]);end;end;

Ralph Friedman [000752]



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