No hay respuestas en este tema

[sir.dev.a.lot]

[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!