Hallo,
die Komponente TDBNavigator hat ein protected field
Buttons: array [TNavigateBtn] of TNavButton und TNavButton ist von TSpeedButton abgeleitet.
Delphi-Quellcode:
type
TCrackDBNavigator = class(TDBNavigator);
procedure TDemoForm.FormCreate(Sender: TObject);
var
eValue: TNavigateBtn;
eName: string;
begin
for eValue := nbFirst to nbRefresh do
begin
eName := ChangeFileExt(GetEnumName(TypeInfo(TNavigateBtn), Ord(eValue)), '.bmp');
TCrackDBNavigator(DBNavigator).Buttons[eValue].Glyph.LoadFromFile(eName);
end;
end;
Getippt und nicht getestet.
Grüße vom marabu