[TRUCO DELPHI] Cambiar los iconos de los botones de un TDBNavigator.
delphi
procedure TForm1.FormCreate(Sender: TObject); var i : Integer; tempGlyph : tBitmap; begin tempGlyph :=TBitmap.Create; try tempGlyph.LoadFromResourceName (HInstance,'GoFirst'); with DBNavigator1 do begin for i := 0 to ControlCount - 1 do if Controls[c] is TNavigateBtn then with TNavigateBtn(Controls[c]) do begin case Index of nbFirst: Glyph := tempGlyph; end; end; end; finally tempGlyph.Free; end; end;
Saludos!