Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

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;

Ralph Friedman [000752]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК