ich frag mich nur wie man in einem Code ohne Einrueckung noch den Durchblick behalten kann...
Delphi-Quellcode:
function TMainForm.GetToolButtonFromID(iID: Integer): TTBXItem;
var i: Integer;
begin
Result := nil;
for i := Self.ComponentCount -1 downto 0 do
if Self.Components[i] is TTBXItem then
if TTBXItem(Self.Components[i]).Hint = 'ToolButton' then
if TTBXItem(Self.Components[i]).Tag = iID then
Result := TTBXItem(Self.Components[i]);
end;