- Code: Select all
var
i: Integer;
begin
// set the menu items Lock Indicator
for i := 0 to Self.menuEmailEdit.MenuItems.Count - 1 do
Self.menuEmailEdit.MenuItems[i].OnClick.Indicator := (Owner as TformMain).IWCGJQLockIndicator1; // <<-- Invalid class typecast
end
Scott