Navigator

[marabu]

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