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]
