Советы по 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]
