Hola
Al final, me decidi por las Acciones y sustituir en el mainForm las acciones de los botones, me ha resultado este codigo:
Código Delphi
[-]
procedure TGlobals.setRecordToolbarActions(aList: TActionList);
var
tb : TToolButton;
begin
tb := Application.MainForm.FindComponent('tbFirst') as TToolButton;
tb.Action := aList.Actions[0] ;
tb.ImageIndex := 0;
tb := Application.MainForm.FindComponent('tbPrev') as TToolButton;
tb.Action := aList.Actions[1];
tb.ImageIndex := 1;
tb := Application.MainForm.FindComponent('tbNext') as TToolButton;
tb.Action := aList.Actions[2];
tb.ImageIndex := 2;
tb := Application.MainForm.FindComponent('tbLast') as TToolButton;
tb.Action := aList.Actions[3];
tb.ImageIndex := 3;
tb := Application.MainForm.FindComponent('tbAdd') as TToolButton;
tb.Action := aList.Actions[4];
tb.ImageIndex := 4;
.
.
.
tb := Application.MainForm.FindComponent('tbFind') as TToolButton;
tb.Action := aList.Actions[8];
tb.ImageIndex := 8;
end;
Se os ocurre otro modo mas eficiente?
he probado a usar FindChildControl. pero no me funciona ni a la de mil estoy con la version 2006 y lei en un post de Roman que no funcionaba igua a partir de la version 7.
Gracias.